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1. -C CCDEFN. TEXT > 

2. -C 

3. < CCDEFN -- Corvus CONCEPT Definition Unit 

4. < 

5. -C (c) Copyright 1983 Corvus Systemsi Inc. 

6. { San Jose> California 


7. -C 

8. -C All Rights Reserved 

9. { 


10. 

■c 

V 

1. 0 

11-01-81 

LEF 

Original unit 

11 . 

■c 

V 

1. 1 

01-17-82 

PHB 

a few mods. . . 

12. 

< 

V 

1. 2 

03-24-82 

LEF 

Add SndRcvStr definition 

13. 

•c 

V 

1. 3 

04-05-82 

LEF 

Add window record definition 

14. 

■c 





Add I/O result equates 

15. 

■c 

V 

1. 4 

10-18-82 

LEF 

Window record definition moved to CCwndIO 

16. 

{ 

V 

1. 5 

01-07-83 

LEF 

Added more I/O result codes 


17. -C 

13. { y 

19. 

20. UNIT CCdefn, 

21 . 

22. INTERFACE 

23. 

24. CONST 

25. MAXWINDOW = 20; 

26. SysComPLoc = $0180; 

27. LongStrMax = 1030; 

28. MaxBytes = 10000; 

29. 


30. -C > 

31. -C Corvus CONCEPT I/O Result Codes > 

32. -C > 

33. 

34. lOok a= 00; { Good re®ult» no error > 

35. IOEinvdev= 02; { Invalid unit number/ inval id device > 

36. lOEioreq = 03; < Invalid I/O request > 

37. 

38. lOEnotrn = 21; -C Transporter not ready > 

39. lOEtimot ® 22; < Timed out waiting for Omninet event > 

40. lOEnobuf = 23; < Read without a valid write buffer > 

41. 

42. lOEwndfn = 32; -C Invalid window function > 

43. lOEwndbe = 33; < Ulindow create boundary > 

44. lOEwndcs = 34; -C Invalid character set > 

45. lOEwnddc = 35; < Delete current window > 

46. lOEwndds 36; < Delete system window > 

47. lOEwndiw = 37; < Inactive window > 

48. lOEwndwr 38; -C Invalid window record > 

49. lOEwndwn = 39; { Invalid system window number > 

50. 

51. lOEnodsp = 40; < Display driver not available > 

52. lOEnokyb = 41; -C Keyboard driver not available > 

53. lOEnotim = 42; -C Timer driver not available > 

54. lOEnoomn = 43; < OMNINET driver not available > 
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55. 

lOEnoprt = 

44i 

•c 

Printer driver not available 

> 

56. 

lOEnfdrv » 

45i 

■c 

No floppy drive at slot 

> 

57. 

lOEnodtc B 

46; 

< 

DataComm driver not available 

> 

58. 






59. 

lOEtblid e 

50; 

< 

Invalid table entry ID 

> 

60. 

lOEtblfl » 

51; 

< 

Table full 

> 

61. 

lOEtbllo = 

52; 

< 

Table entry in use 

> 

62. 

lOEkybte « 

53; 

< 

Keyboard transmission error 

> 

63. 

lOEuiopffl « 

54; 

< 

Invalid unit I/O parameter 

> 

64. 

lOEprmln » 

55; 

•G 

Invalid parameter block length 

> 

65. 

lOEfnccd « 

56; 

•c 

Invalid function code 

> 

66. 

lOEclkmf » 

57; 

■c 

Clock (hardware) malfunction 

} 

67. 






68. 

lOEirdsbl* 

60; 

■c 

Input to read buffer disabled 

> 

69. 

lOEordsb 1« 

61; 

■c 

Output to read buffer disabled 

> 

70. 

lOEiudsbl* 

62; 

•c 

Input to write buffer disabled 

> 

71. 

IOEowdsbl» 

63; 

■c 

Output to write buffer disabled 

> 

72. 

lOEbszerr® 

64; 

< 

Buffer size error 

> 

73. 

lOEwszerr* 

65; 

< 

Write size error 

> 

74. 

IOErszerr= 

66; 

< 

Read size error 

> 

75. 

lOEoarter* 

67; 

< 

UART hardware error 

> 

76. 

IOEpaderr» 

68; 

•c 

Proportional spacing error 

> 

77. 






78. 

TYPE 





79. 

Byte 


-128. . 127; 


80. 

pBy te 


'^By te; 


81. 

Str ing32 


STRIN0C323; 


82. 

pString32 

* 

'^Str ing32; 


83. 

Str ing64 

* 

STRIN0C643; 


84. 

pStr ing64 


'^S t ring 64; 


85. 

Str ingSO 

B 

STRIN0C803; 


86. 

pStr ingSO 

= 

-^Str ing80; 


87. 

Bytes 

B 

ARRAY CO. . 99993 OF Byte; 


88. 

Words 


ARRAY CO. . 99993 OF INTEGER; 


89. 

pBy tes 

= 

'^Bytes; 


90. 

pWords 

ss 

'^Words; 


91. 






92. 

SlotType 

* 

(NoDiski LocalDisk< OmninetDiski 



93. FlpyCSDisk, FlpyCSDisk, FlpyASDisk); 

94. 

95. IMPLEMENTATION 

96. 

97. 

98. 
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END. 
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0 

87 

88 

00 

34 


0180 

26 


0? 

35 


03 

36 


10000 

28 


1030 

27 


127 

79 


128 

79 


20 

25 


21 

38 


22 

39 


23 

40 


32 

42 

81 

33 

43 


34 

44 


30 

45 


36 

46 


37 

47 


38 

48 


39 

49 


40 

51 


41 

52 


42 

53 


43 

54 


44 

55 


45 

56 


46 

57 


50 

59 


51 

60 


52 

61 


53 

62 


54 

63 


55 

64 


56 

65 


57 

66 


60 

68 


61 

69 


62 

70 


63 

71 


64 

72 

83 

65 

73 


66 

74 


67 

75 


68 

76 


80 

85 


9999 

87 

88 

BYTE 

79 

80 

BYTES 

87 

89 

CCDEFN 

20 


FLPYA5DISK 

93 


FLPYC5DISK 

93 


FLPYC8DISK 

93 


lOEBSZERR 

72 
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lOECLKMF 

66 


lOEFNCCD 

65 


lOEINVDEV 

35 


lOEIOREQ 

36 


lOEIRDSBL 

68 


lOEIUlDSBL 

70 


lOEKYBTE 

62 


lOENFDRV 

56 


lOENOBUF 

40 


lOENODSP 

51 


lOENODTC 

57 


lOENOKYB 

52 


lOENOOMN 

54 


IQENOPRT 

55 


lOENOTIM 

53 


lOENOTRN 

38 


lOEORDSBL 

69 


lOEOWDSBL 

71 


lOEPADERR 

76 


lOEPRULN 

64 


lOERSZERR 

74 


lOETBLFL 

60 


lOETBLID 

59 


lOETBLIU 

61 


I GET I MOT 

39 


lOEUARTER 

75 


lOEUIOPM 

63 


lOEWNDBE 

43 


lOEWNDCS 

44 


lOEWNODC 

45 


lOEWNDDS 

46 


lOEWNDFN 

42 


lOEWNDIW 

47 


lOEWNDMN 

49 


lOEWNDWR 

48 


lOEWSZERR 

73 


lOGK 

34 


LOCALDISK 

92 


LONGSTRMAX 

27 


MAXBYTES 

28 


MAXWINDOW 

25 


NODISK 

92 


OMNINETDIS 

92 


PBYTE 

80 


PBYTES 

89 


PSTRIN032 

82 


PSTRIN064 

84 


PSTRING80 

86 


PWORDS 

90 


SLOTTYPE 

92 


STRING 

81 

83 

STRING32 

81 

82 

STRING64 

83 

84 

STRING80 

85 

86 
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1. < CCHEXOUT, TEXT > 


2. -G 

3. < CCHEXOUT — Output Hex Characters Unit 

4. -G 

5. { (c) Copyright 1982 Corvus Systems^ Inc. 

6 -G San Jose< California 

7. -C 

8. < All Rights Reserved 

9. -f 

10. -G V 1.0 01-16-82 PHB Original unit 

1 1. -G 

12 . < > 


13. -G$R-> 

14. 

15. UNIT CChexOuti 

16. 

17. INTERFACE 

18. 

19. USES T*U CCLIB> CCdefn; 

20 . 

21. PROCEDURE CChexIniti 


22. 

PROCEDURE 

puthexby te 

(b; 

by te ) i 

23. 

PROCEDURE 

puthexujord 

(ui; 

integer ) > 

24. 

PROCEDURE 

puthexlong 

(1: 

long int ) ; 

25. 

PROCEDURE 

dump hex 

(p: 

pBytesi len: integer) 


26. 

27. IMPLEMENTATION 

28. 

29. -G*P> 
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30. 

TYPE 


31. 

NIBBLE •- 

■■ 0. . 15; 

32. 

MBYTE = 

packed array CO. .13 of NIBBLE; 

33. 

HWORD = 

packed array CO. . 13 of MBYTE; 

34. 

HLONG = 

packed array CO. . 33 of MBYTE; 

35. 



36. 

VAR 


37. 

hexstr : 

array CO. . 153 of CHAR; 

38. 



39. 



40. 

PROCEDURE CChexIniti 

41. 

var i. integer; ts; STRING32i 

42. 

begin 


43. 

ts := '0123456789ABCDEF'; 

44. 

for i ; 

0 to 15 do hexstrCi3 tsCi+: 

45. 

end; 


46. 



47. 



48. 

PROCEDURE puthexbute -C ( b . byte)>; 

49. 

var trix 

packed record case integer o^ 

50. 


1; <h; MBYTE); 

51. 


2: (num: byte); 

52. 


end; 

53. 

begin 


54. 

with trix do begin 

55. 

num 

: = b ; 

56. 

write (hexstrthC133, hexstr ChC033); 

57. 

end; 


58. 

end; 


59. 



60. 



61. 

PROCEDURE puthexword -((w; integer )>; 

62. 

var i: integer; 

63. 

tri X 

packed record case integer o-l 

64. 


1; (h: HWORD); 

65. 


2: (num: integer); 

66. 


end; 

67. 

begin 


68. 

with tri 

X do begin 

69. 

num 

: = w; 

70. 

for 

i :== 0 to 1 do write (hexstr Chi 

71. 

end; 


72. 

end; 


73. 



74. 

<%py 
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hexstrChCi3C033)i 
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76. 

77. 
7B 

79 

80 
91. 
82 
3.3 
94. 

85 

86 
87 
88. 

89. 

90. 

91. 

92. 
93 

94. 

95. 

96. 

97. 

98. 

99. 
100 
101 . 
102 . 

103. 

104. 

105. 

106. 

107. 

108. 
109. 

no. 

Ill 


PROCEDURE puthexlong -C ( 1 : longint>>; 

vav i: iriteger; 

trix; packed record case integer of 
.1; <l>: HLDNG); 

2: <num: longint); 

end i 

be (I in 

uuth trix do begin 
niim ; - 1 ; 

for i : 0 to 3 do write ( hex str Ch C i 3 C 1 3 3 . ' hexstr Ch C i 3 C03 3 ) ; 

end i 

emi i 


PROCEDURE dumphex C ( p ; pBytesi len: integer>>» 

vav i : inteper; 

trix: packed record case integer of 

1: (It: MBYTE )i 

2: (nu<n: byte); 

end i 

b e i n 

if len .. MaxBytes then len := MaxBytesi 
foi‘ i : 0 to .len - 1 do begin 

with trix do begin 
num := p 'l.i3i 

write (hexstrI.hC133, hexstrth C03 3, ' M; 

end; 

if i MOD 4 --- 3 then begin 
i.rr i t e ( ' ' ) ; 

if i MOD 16 15 then write In; 

if i MOD 128 = 127 then writeln; 
end ; 

end; 

end ; 

end. fend of UNIT hexout> 
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0 

31 

32 

1 

32 

100 

33 

127 

105 


128 

105 


15 

31 

37 

16 

104 


2 

51 

65 

3 

34 

84 

4 

102 


B 

22 

55 

BYTE 

22 

51 

CCDEFN 

19 


CCHEXINIT 

21 

40 

CCHEXOUT 

15 


DUMP HEX 

25 

89 

H 

50 

56 

HBYTE 

32 

33 

HEXSTR 

37 

44 

HLONG 

34 

78 

HWORD 

33 

64 

I 

41 

105 

44 

L 

24 

83 

LEM 

25 

96 

LONG I NT 

24 

79 

MAXBYTES 

96 


NIBBLE 

31 

32 

NUM 

51 

55 

P 

25 

99 

PBYTES 

25 


PUTHEXBYTE 

22 

48 

PUTHEXLONG 

24 

75 

PUTHEXWORD 

23 

61 

STRING32 

41 


TRIX 

49 

54 

TS 

41 

43 

W 

23 

69 


ce Li sting 

33 34 37 44 

44 50 56 64 

44 104 

79 93 

102 

93 


64 

70 

78 

84 

34 

50 

92 


56 

70 

84 

100 

62 

70 

76 

84 


97 


65 69 79 S3 


63 68 77 82 

44 
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92 1 00 


90 97 99 102 104 


93 99 


91 98 
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1 < CCLNOINT. TEXT > 


2 . < 

3. -C CCLNGINT — Corvus CONCEPT Long Integer Unit 

4. -C 

5 { (c) Copyright 1982 Corvus Systems* Inc. 

6. -C San Jose* California 

7 C 

8. -C All Rights Reserved 

9 -C 

10 -f. V 1.0 05-S1-82 DP Original, unit 

11 . <■ 

12 . < > 


13. <*R-y 

14. 

15 UNIT CClngltil; 

16. 

17 INTERFACE 

18 

19. USES {tfU CCLID.> CCdefn* 

20 . 

21 FUNCTION LIntDyte (Which: integer* Num: longint): byte* 

22 PROCEDURE ByteLInt (VAR Num; longint* by teO* by te 1 > by te2* by te3: byte)* 

23. FUNCTKJN lnt2Qyte (Which* Num; INTEGER): byte; 

24. PROCEDURE Byte2Int (VAR Num: INTEGER* byteO*bytel: byte)* 

25. 

26. 

27. IMPLEMENTATION 
28 

29. TYPE 

30. 

31. Longaddr = RECORD CASE INTEGER OF 

32 0: (Longword; LONGINT) i 

33. 1: (Longbyte; PACKED ARRAY TO. . 33 OF BYTE)* 

34. END; 

35. 

36. In tad dr * RECORD CASE INTEGER OF 

37. 0: (int: INTEGER); 

38 1: (Byt. PACKED ARRAY CO. .13 OF BYTE); 

39. P:ND; 

40. 

41. 

42. <SP> 
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43. { : : > 

44. { Procedure; LINTBYTE 

45. < 


46. { Description; This procedure returns the byte indicated by 'WHICH' 

47. { from the long integer 'NUM'. The least significant byte 

48. { of the long integer is byte zero. 

49. -C 

50 . { 

51. 

52. FUNCTION LIntByte {(Which: integer; Num; longint); byte>; 

53. VAR ByteNum: LongAddr; 

54. BEC4IN 

55. By teNum. LongWord ; = Num; 

56. LIntByte ;= By teNum. LongBy teCWh ich J; 

57. END; C LIntByte > 

58. 

59. 

60. < 

61. { Procedure; HYTELINT 

62. -C 

63. -C Description; This procedure converts four byte quantities into a long 

64. -C integer value. ByteO is the most significant byte of 

65. { the long integer; Byte3 is the least significant byte 

66. { Replacement is used instead of the arithmetic 

67. { solution for speed and compactness of code. 

68. -C 

69. -C 

70. 

71. PROCEDURE ByteLInt {(VAR Num; longint; by teO- b y te 1 i b y te2i b y t e3: byte)>; 

72. VAR ByteNum; LongAddr; 

73. BEGIN 

74. ByteNum. l.ongByteCOJ .= ByteO; 

75. By teNum. LongBy te C 1 3 := By tel; 

76. ByteNum. LongByteC23 := Byte2; 

77. ByteNum. LongByteC33 : * Byte3; 

78. Num ;= ByteNum. LongWord; 

79. END; { ByteLInt > 

80. 

81. 

82. C$P> 
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83. -C > 

84. < Procedure. INT2BYTE 

85. -C 

86. < Description: 

87 -C 

ea. { } 

89. 

90. FUNCTION Int2Byte <<Wh ich, Num: INTEGER > : byte>; 

91. VAR ByteNum: IntAddr; 

92 BEGIN 

93. ByteNum. T.nt := Nu«n» 

94. Int2Byte ;= By teNum. By t CMh i c h 3; 

95. ENDi -C Byte2Int > 

96. 

97. 

98. { > 

99. < Procedure: BYTE2INT 

100. -C 

101. < Description; 

102 . <: 

103. -C > 

104. 

105. PROCEDURE Byte2Int -KVAR Num. INTEGER; byteO. bytel; byte)>; 

106. VAR ByteNum; IntAddr; 

107. begin’ 

108. ByteNum. Bytl'O] : = byteO; 

109. ByteNum. nytCl] ;=bytel; 

110. Num := ByteNum. Int; 

111. END; t Byte2Int > 

112 . 

113. END. 

114 
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0 32 33 37 38 74 J08 

1 33 38 75 109 

2 76 

3 33 77 

BYT 38 94 108 109 

BYTE 21 22 23 24 33 38 

BYTEO 22 24 74 108 

BYTEl 22 24 75 109 

BYTE2 22 76 

BYTE2INT 24 105 

BYTE3 22 77 

BYTELINT 22 71 

BYTENUM 53 55 56 72 74 75 76 77 78 91 73 

94 106 3 08 109 no 

CCDEFN 19 

CCLNGINT 15 

INT 37 93 no 

INT2BYTE 23 90 94 

INTADDR 36 91 106 

L INTBYTE 21 52 56 

LONGADDR 31 53 72 

LONGBYTE 33 56 74 75 76 77 

LONG I NT 21 22 32 

LONGWORD 32 55 78 

NUM 21 22 23 ,24 55 78 93 110 

WHICH 21 23 56 94 
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i. CCCLKTO. TEXT 


CCCLKIO — Corvus CONCEPT Clock Processing Unit 


<c) Copyright 1982 Corvus ■ Systems* Inc. 

San Jose* California 


All Flights Reserved 


10 04-10-82 LEF Original unit 

1 i 09-07-82 LEF Rework of INTERFACE section 


UNIT CCclkJO,. 


ClkSt.'40 = iitringL40]; 

ClkPB = record 

Day of Wee k . Month . Day ; integer; { set by driver! 

Hour. Mins. Secs* Tenths* LeapYear: integer; -C set by driver' 


2 5 . 


Year 



integer; { 

set by unit 

2o 


end , 





2B 

pClkDateHcd - 1 KDateRc d; 



29, 

ClkDateRcd = packed 

record 



30 


year: 

0. . 100; 



31. 


day 


0, . 31; 



32 


month : 

O. 12; 



33. 


end 

i 




34 







35 

PROCEDURE 

CC( Ik lOini t; 




36 

PROCEDURE 

Cl kRead 

( var 

CFB. ClkPB); 



3 7, 

PROCEDURE 

C 1 kWr.it e 

(CPU 

. ClkPB); 



3B. 

PROCEDURE 

ClkWeekDay 

( var 

DateStr; ClkStr40) 

•Cday of week> 

39, 

PROCEDURE 

C 1 kDatel 

< var 

DateStr: ClkStr40) 

{ "d y -mon-y r 

" format> 

40. 

PROCEDURE 

ClkDate2 

( var 

DateStr. ClkStr40)* 

{"month dy* 

year" format> 

41 

PROCEDURE 

ClkDate3 

( var 

DateStr: ClkStr40> 

{"dy month 

year" format> 

42. 

PROCEDURE 

C 1 kTime 1 

( var 

DateStr; ClkStr40)* 

■C " hr : mi : sc " 

format> 

43. 

PROCEDURE 

Clkrime2 

(var 

DateStr; ClkStr40) 

{"hr ; mi am" 

format} 

44 

PROCEDURE 

CvDateStr 

(DateStr: ClkStr40; var 

drcd: ClkDateRcd); 

45 







46. 








IMPLEMENTATION 
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50. 

CONST 

wr 1 en 


$10; 




51. 


rd 1 en 


$0E; 




52. 








53. 

TYPE 

Cl kStr2 

== stringC23; 




54. 


ClkStrlO = stringCJOl 




55. 








56. 

VAR 

sy sdate : 

ClkDateRcd; 

< 

system date 

> 

57. 


ClkWD 


ClkStrlO; 

-t 

day of week 

> 

58. 


ClkYr 


ClkStrlO; 

< 

year 

> 

59. 


ClkMo 


ClkStrlO; 

•C 

month 

> 

60. 


ClkDy 


ClkStr2; 


day 

> 

61. 


ClkHr 


ClkStr2; 

•C 

hour 

> 

62. 


Cl kMi 


ClkStr2; 

< 

minute 

> 

63. 


ClkSc 


ClkStr2; 

< 

second 

> 

64. 


Cl k Info: 

ClkPB; 

< 

clock parameter block > 


65. 

66. FUNCTION OStimDv: integer; external; 

67. FUNCTION pOSdate: pC 1 kOa teRc d ; external; 


68 . 

69. 

70. -C CvtInt > 

71. -C Convert integer to ClkStr2 string 

72. -C > 

73. 


74. PROCEDURE cvtint (i. integer; var st; ClkStr2); 

75. begin 

76. st := ' — '; i i mod 100; 

77. stC13 ;= chr((i div 10)+ord ( '0 ' ) ) ; 

78. stC2J := chr<(i mod 10)+or d < '0 ' ) ) ; 

79. end; 

80. 

81. 

82. { WeekDay 

83. { Compute day of week <1.7 = Sunday to Saturday) 


04 . < > 

85. 

86. FUNCTION WeekDay (d^m. y; integer): integer; 

87. begin 

88. if m <= 2 then begin m ; = m + 12; y : = y -- 1; end; 

89. WeekDay := <(y■C^^365> + <y div 4) + m*28 + 

90. ((13*m - J2) div 5) + d ~ 30) mod 7) + 1; 

91. end; •fWeekDay> 

92. 

93. 

94. 


■C*P> 
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95. -C ClkFormot > 


96, 

•i 



97. 




98. 

PROCEDURE C Ik For mat (CPB: Cl 

kPB)i 

99. 


var yr: ClkStr2; 


100. 


h e g X n 


101. 


with CPB do begin 


102. 


ClkWD ; = ( " )i 


103. 


case DayofUleek of 


104. 


1: ClkWD := 

( 'Sunday ' ) J 

105. 


2; ClkWD : = 

C 'Monday ' ) ; 

106. 


3. ClkWD : = 

( 'Tuesday ' ) i 

107 


4: ClkWD ;* 

( 'Wednesday ' ) 

108. 


5: ClkWD :» 

( 'Thursday ' ) i 

109. 


6; ClkWD 

( 'Friday '); 

no 


7; ClkWD : « 

< 'Saturday ' ) ; 

111, 


end; <case> 


112 


cvtint (Yeariyr)i 


113 


ClkYr cone at (' 

19'. yr ); 

114. 


ClkMo : » ( " >; 


115. 


case Month of 


116. 


1: ClkMo := 

( 'January ' ) ; 

117 


2: ClkMo ;= 

< 'February ' ) ; 

118. 


3: ClkMo ;= 

( 'March ' 

119 


4; ClkMo ; = 

( 'April '); 

120. 


5; ClkMo : 

( 'May ' )i 

121 


6: ClkMo : = 

( 'June ' ) ; 

122. 


7. ClkMo : = 

( 'July ' 

123 


8: ClkMo ;= 

( 'August ' ) i 

124. 


9: ClkMo ;= 

( 'September ' ) 

125. 


10: ClkMo 

( 'Oc tober ' ) ; 

126. 


11: ClkMo := 

( 'November ' ) . 

127. 


12. ClkMo ; = 

( 'December ' ) ; 

128 


end; icase> 


129. 


cvtint (day, ClkDy 

); 

130. 


cvtint {hour.ClkHr 

); 

131 


cvtint (mins.ClkMi 

); 

132. 


cvtint (secsiClkSc 

)i 

133 


e n (1 » 


134. 


end ; 


135 




136. 




137 

-C»P> 
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138. { C Ik Write > 

139. < Write system clock 

140. -C > 

141. 


142. PROCEDURE ClkWrite; -((CPB: ClkPB)> 

143. var timer: integer* 

144. begin 

145. with CPB do begin 

146 DayofWeek := WeekDay (Day* Month* sysdate. year ) * 

147. LeapYear : = Year mod 4* 

148. end; 


149. timer := OStimDv* 

150. unituirite ( timer * CPB* uir len ) ; 

151. timer ; = ioresult* 

152. if timer <> 0 then uiriteln ('Clock urite error: '* timer:!)* 

153. end; 

154. 

155. 

156. -C ClkRead > 

157. -C Read system clock 

158. { > 


159. 

160. PROCEDURE ClkRead; {(var CPB: ClkPB)> 

161. var timer: integer* psysdate: pClkDateRcd; 

162. begin 

163. timer : = OStimDv; 

164. uni tread ( t imer * CPB* rd len ) » 

165. timer := ioresult; 

166. if timer O 0 then u/riteln ('Clock read error: '* timer; 1); 

167. psysdate pOSdate; sysdate := psysdate'*-; 

168. with CPB do begin 

169. year := sy sdate. y ear; 

170. LeapYear : = Year mod 4; 

171. end; 

172. end* 

173. 

174. 

175. { ClkWeekDay 

176. { Return day of week string 

177. { 

178. PROCEDURE ClkWeekDay <(var DateStr: ClkStr40)>; 

179. begin 

180. ClkRead (Clklnfo); ClkFormat (Clklnfo); 

181. DateStr ; = ClkWD; 

182. end; 

183. 

184. 

185. {*P> 


■> 

> 



VSIXRF — Cross Reference Listing February li 1983 

File ID: CCCLKIO. TEXT Page 5 

186. { ClkDatel > 

187. < Return date string <"dy-mon-yr“ format) 

188. -C > 

189. PROCEDURE ClkDatel {(var DateStr: ClkStr40)>i {“dy-mon-yr " format> 

190. begin 

191. ClkRead (Clklnfo)i ClkFormat (Clkinfo); 

192. DateStr := concat < C 1 kDy . » copy (C 1 kMo, 1 , 3 ) ; , c op y ( C 1 k Yr , 3, 2 ) ) i 

193. end; 

194. 

195. 

196. -C ClkDate2 > 

197. < Return date string ("month dy< gear" format) 

198. < > 

199. PROCEDURE ClkDate2 <(var DateStr: ClkStr40)>; <"month dy; year" format! 

200. var dy: ClkStr2; 

201. begin 

202. ClkRead (Clkinfo); ClkFormat (Clkinfo); 


203. dy := ClkDy; if dyi;i3 = ' 0 ' then delete (dy,l,l); 

204. DateStr := concat (ClkMo. ' dy, SClkYr); 

205. end; 

206. 

207. 

208. -C ClkDate3 

209. -C Return date string ("dy month year" format) 


210 . < > 

211. PROCEDURE ClkDate3 {(var DateStr: ClkStr40)>i {"dy month year" format! 

212. var dy: ClkStr2; 

213. begin 

214. ClkRead (Clkinfo); ClkFormat (Clkinfo); 

215. dy := ClkDy; if dyCll = 'O' then delete (dy.1,1); 

216. DateStr ;= concat (dy, ' ', ClkMo.' '.ClkYr); 

217. end; 

218. 

219. 


220 . <*py 
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> 


221 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 


■C ClkTimel 

< Return time string < "hr: mi: sc” format) 

. } 

PROCEDURE ClkTimel {(var DateStr: ClkStr40>>i {"hr : mi : sc " format> 

begin 

ClkRead (Clkinfo); ClkFormat (Clklnfo); 

DateStr := concat (ClkHr# '.ClkMi/ '«ClkSc>; 
end/ 


■C ClkTime2 > 

< Return time string ("hr: mi am" format) 

{ y 


PROCEDURE ClkTime2 <<var DateStr: ClkStr40)>; -C"hr:mi am" format> 
var hr, ampm: ClkStr2; 

I.) e g i n 

ClkRead (Clklnfo); ClkFormat (Clklnfo); 
with Clklnfo do begin 

if Hour in CO. . 113 then ampm := 'am' else ampm := 'pm'; 
if Hour = 0 then Hour 12; 
if Hour > 12 

then cvtint (Hour-12«hr) 
else cvt in t (Hour/ hr); 
if hrin = '0' then delete (hr, 1,1); 
end ; 

DateStr ; ■= concat (hr, ': ',Clklii, ' ',ampm); 
e n d ; 


■C»P> 
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File ID: 

251. < 

252. -C 

CCCLKIO. TEXT 

Pc:qe 

Convert ClkStT40 string to binary 

date 





254. 




255. 

PROCEDURE CvDateStr <(DateStr; ClkStr40; var drcd: C 1 kDateRc d ) !) ; 

256. 


var ijjx integer; s: ClkStr40; ch char; ok boolean; 

257, 




258. 


FUNCTION nextch; char; 


259. 


var ch: char; 


260. 


begin 


261. 


if ix length (s) 


262. 


then begin 


263. 


c: h ; - s C i X ] ; i x • 

= i X + J ; 

264. 


if ch >= 'a' then 

ch .= chr(ordCch) - 33); 

265. 


end 


266. 


else c h : = ; 


267, 


nextch : - c h ; 


268 


end; Tnextclil 


269. 




270. 


FUNCTION GetMonth <var f month 

integer). Boolean; 

271. 


var n: integer; m: packed 

a r r a u 1. 1 . . 3 3 of char; t- e s u 1 1 . b o o 1 e 

272. 


b e (| i n 


273. 


result : rz FALSE; 


274. 


uih } 1 e not ( c h in 1 ' A ' . . ' Z 

'. '''"3) do ch : = nextch; 

275. 


n : = 0; 


276. 


while (ch >= 'A') and (rh 

•C~ ' Z ' ) do begin 

277. 


n : = n •+• 1 > 


278. 


if n <= 3 then mCnl 

: - c h ; 

279. 


ch := nextch; 


280. 


end; 


281. 


if n >= 3 then begin 


282. 


n : == 0; 


283. 


if m = 'JAN' then n 

1; 

284. 


if m = 'FEB' then n 

~ 2; 

285. 


if m •= 'MAR' then n 

- 3; 

286. 


if m ~ 'APR' then n 

4; 

287. 


if m - 'MAY' then n : 

^ 3; 

288. 


if rn ••= 'JUN' then n : 

= 6; 

289. 


if m = 'JUL' then n 

== 7; 

290. 


if m =: 'AUG' then n 

= 8; 

291. 


if m = 'SEP' then n 

= 9; 

292. 


if m = 'OCT' then n 

= 10; 

293. 


if m = 'NOV' then n 

11; 

294. 


if m = 'DEC' then n 

12; 

295. 


if n > 0 then begin result := TRUE; fmonth := n; end; 

296. 


end ; 


297. 


GetMonth : = result; 


298. 


if ok then oJ< := result; 


299. 


end; <GetMonth> 


300. 




301. 

•C*P> 
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302 

FUNCTION GetNum (var fnum: 

integer; flo, fhi: integer); Boolean. 

303. 

var v<al: integer; Ansuieri result; Boolean; 

304 

begin 


305 

ujhile not (ch in r'O'. 

' 9 ', "'-'3) do ch : = nextch; 

306 

val : - 0; Answer : = FALSE; 

30 7 

while (ch >-■ '0') and 

(ch C- '9') do begin 

308 

Answer : -- TRUE; 


309, 

v,a) . val » 1.0 + 

ord ( c h ) - or d ( '0 ' ) i 

310 

ch ; nextch; 


31 1 

en<l; 


3 1 2 

tnum val; 


31 3. 

result : "5 Answer and (Cval >= flo) and (val <= fhi)); 

314, 

OetNutn : resu.1t; 


315. 

i f 0 !< t h n ok . - result; 

316, 

end ; 


3 1 7 



31 S 

(CvDateStr> 


3 1 9 

V. “ Da test r, ix ;= 1; ch 

; nextch, ok ; = TRUE; 

320. 

wh:!. .!. e not (ch In 'Z' 

, ' 0 ' . . ' 9 3 ) do c h : = nextch; 

321 

with d; cd do befjin 


322 

if ch in C 'O'. . '9' J 


323. 

then be g i n 


324 

if GetNum ( i< .t, 31 ) 

then begin 

325 

<1 a y : ~ i ; 


326 

if GetMonth (i) then begin 

32 '7 

month : •= i 


32.B 

if GetNum 

(i, 0,2000) thc^n year ;~ i mod 100; 

329 . 

end; 


330. 

end; 


331 

end 


332. 

e 1 !; e be g i n 


333. 

if GntMonth (i) then begin 

334, 

in o n t h : - i ; 


335 

if GetNum ( i , 1 

, 31 ) then begin 

33, 

day i; 


33 7 

if GetNum 

( 1,0,2000) then year ;= i mod lOO; 

338. 

end; 


339 

en d ; 


340 

end ; 


341, 

if not ok then begin 


342 

year : = 0; month 

= 0; day ; “ 0; end; 

343. 

end; 


344 

end, 



345. 

346. 

347. -{:$P> 
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348. < CCclklOinit 

349. -C CCclklO unit in i t i a 1 i zat i on 


350. -C > 

351. 

352. PROCEDURE CCclklOinit; 

353. beg. in 

354. ClkRead (Clkinfo); 

355. if not (C) k Inf o. month in Cl. 121) 

356. or not (Cl k Inf o. day in Cl. 311) then with Clkinfo do begin 

357. DayofWeek WeekDay ( sy sda te . d ay / sy s da t e . mon t h . sy sda t e , y ear ) . 

358 Month ; =* sysdate month; 

359. Day . - sysdate. day; 

360. Hour : == 0; 

361. Mins : == 0; 

362. Se( s : O; 

363. Tenths : 0; 

364. LeapYear : = sysdate. year mod 4; 

365. ClkWrite (Clkinfo); 

366. end; 

367. end; 

368. 

369. end. -Cun it CCclkIO> 

370. 
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0 

30 

31 

32 

152 

166 


328 

337 

342 

360 

361 

OF. 






1 

77 

88 

90 

104 

1 16 


263 

271 

277 

283 

319 

10 

50 

54 

77 

78 

125 

100 

30 

76 

328 

337 


1 1 

.1 26 

239 

293 



12 

32 

88 

90 

127 

240 

13 

90 





2 

03 

78 

88 

105 

117 

2000 

' )2Q 

337 




28 

B9 





3 

■1 06 

J 18 

1 92 

271 

278 

30 

90 





3 1 

31 

324 

335 

356 


32 

264 





4 

89 

.1 07 

1 19 

147 

170 

40 

21 





5 

90 

1 08 

120 

1'87 


6 

;i 09 

121 

;.'88 



7 

90 

1 10 

1 22. 

289 


S 

■' :."3 

290 




9 

:i24 

2’91 




AMPM 

235 

239 

24 6 



ANSWER 

303 

306 

308 

313 


CCCLKIO 

16 





CCCLKIOTMI 

35 

352 




CH 

256 

259 

263 

264 

266 


307 

309 

310 

319 

C320 

CLKDATEl 

3'-? 

J89 




CLKDATE2 

4 0 

1 99 




CLKDATE3 

4 1 

21 1 




CLKDATERCD 

28 

29 

44 

56 


CLKDY 

60 

1 29 

192 

203 

215 

CLKFORMAT 

98 

180 

191 

202 

214 

CLKHR' 

61 

130 

227 



CLKINFO 

64 

180 

191 

202 

214 


365 





CLKMI 

62 

131 

P27 

246 


CLKMO 

59 

1 14 

116 

117 

118 


125 

126 

127 

192 

204 

CLKPB 

22 

36 

37 

64 

98 

CLKREAD 

36 

160 

180 

191 

202 

CLKSC 

63 

132 

227 



CLKSTRIO 

54 

57 

58 

59 


CLKSTR2 

53 

60 

61 

62 

63 

CLKSTR40 

21 

38 

39 

40 

41 

CLKTIMEl 

42 

224 




CLKTIME2 

43 

r>34 




CLKWD 

57 

102 

104 

103 

106 

CLKWEEKDAY 

38 

178 




CLKWRITE 

37 

142 

365 



CLKYR 

58 

1 13 

192 

204 

t? 1 6 
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239 

240 

275 

282 

295 

306 

362 

363 





152 

166 

192 

203 

215 

244 

324 

335 

355 

356 



292 

309 





241 

242 

294 

355 



192 

284 





281 

285 





286 

364 






267 

322 

274 

276 

278 

279 

305 

226 

237 





226 

237 

238 

354 

355 

356 

119 

216 

120 

121 

122 

123 

124 

214 

226 

237 

354 



74 

42 

99 

43 

200 

44 

212 

256 

235 


107 

108 

109 

110 

181 
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CPB 

36 

37 

98 

101 

145 

CVDATESTR 

44 

255 




CVTINT 

74 

1 12 

129 

130 

131 

D 

86 

90 




DATESTR 

38 

39 

40 

41 

42 


cl27 

246 

319 



DAY 

23 

31 

129 

146 

325 

DAYOFWEEK 

23 

3 03 

146 

357 


DRCD 

44 

321 




DY 

200 

203 

204 

212 

215 

FHI 

302 

313 




FLO 

302 

313 




FMONTH 

270 

295 




FNUM 

302 

312 




GETMONTH 

270 

297 

326 

333 


GETNUM 

302 

314 

324 

328 

335 

HOUR 

24 

130 

239 

240 

241 

HR 

235 

242 

243 

244 

046 

I 

74 

76 

77 

78 

256 


334 

335 

336 

337 


IX 

256 

261 

263 

319 


LEAPYEAR 

24 

1 47 

170 

364 


M 

86 

88 

89 

90 

271 


288 

289 

290 

291 

292 

MINS 

24 

.131 

361 



MONTH 

23 

32 

115 

146 

327 

N 

271 

275 

277 

278 

281 


288 

289 

290 

291 

292 

NEXTCH 

258 

267 

274 

279 

305 

OK 

256 

298 

315 

319 

341 

OSTIMDV 

66 

3 49 

163 



PCLKDATERC 

28 

67 

161 



POSDATE 

67 

167 




PSYSDATE 

161 

3 67 




RDLEN 

51 

3 64 




RESULT 

271 

273 

295 

297 

298 

S 

256 

261 

263 

319 


SECS 

24 

132 

362 



ST 

74 

76 

77 

78 


STRING 

21 

53 

54 



SYSDATE 

56 

146 

167 

169 

357 

TENTHS 

24 

363 




TIMER 

143 

149 

150 

151 

152 

UAL 

303 

306 

309 

312 

313 

WEEKDAY 

86 

89 

146 

357 


WRLEN 

50 

150 




Y 

86 

88 

89 



YEAR 

25 

30 

112 

146 

147 


364 





YR 

99 

1 12 

113 




February 1< 1983 

Page 11 


1 50 

164 

168 




132 

242 

243 




43 

44 

181 

1 92 

204 

216 

336 

34 2 

356 

357 

359 


216 







337 

242 

243 

360 




324 

325 

326 

327 

328 

333 


278 

283 

284 

285 

286 

287 

293 

294 





334 

342 

355 

357 

358 


282 

283 

284 

285 

286 

: '8 / 

293 

294 

295 




310 

319 

320 





303 

313 

314 

315 


358 

359 

364 



161 

163 

164 

1 65 

166 

169 

170 

328 

337 

342 
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1, 

■f. or 

CRTIO. TEXT 



2. 

•c 




3. 

< 

CCCRTIO — Corvus CONCEPT CRT Control Unit 

4. 

■c 




5. 

-t 

(c) Copyright 1982 Corvus Systems/ Inc. 

6, 

■c 


San Jose/ California 

7. 

T 




8. 

■c 

All Rights Reserved 


9. 

< 




10. 

< 

V 1. 0 

10-23-81 LEF 

Original unit 

11. 

■c 

V 1.1 

01-16-82 PHB 

Modifications for L.ONGINTs 

12. 

< 

V 1,2 

04-29-82 LEF 

Add display CRT commands 

13. 

< 

V 1. 3 

06-19-82 LEF 

Fix GetByte/ GetLongNum procedures 

14. 

< 

V 1. 4 

08-23-82 LEF 

Fix GetByte to get input from INPUT file 

15. 

<. 




16 









17. 

•C$R- 

> 



18. 





19. 

UN I T 

CCrrtlOi 



20. 





21 . 

INTERFACE 



23. 

USES 

Cf'U CCLIB> 

CCdefn; 


24. 





25. 

CONST 



26. 


CCcr t lOvers i on = '1.4'i 


27. 





28. 

TYPE 




29 


CrtRd X 

- < Bi nRd X* Oc tRd X / DecRd x / He xRd x ) ; 

30. 


Cr tStatus 

== (Normal/ Escape/ Error); 

31. 





32. 


Cr tCommand 

^ (ErasEOS, 

•Cclear to end of screen> 

33. 



ErasEOL/ 

<clear to end of line> 

34. 



EraseALL/ 

•Cclear screen and home> 

35. 



Cur sorHome/ 

Cmove cursor home> 

36. 



CursorUp / 

•Cmove cursor up> 

37 



Cur sorUoujii/ 

•Cmove cursor down> 

38, 



CursorRigh t/ 

■Cmove cursor right> 

39 



Cur sorLef t/ 

•Cmove cursor left> 

40. 



CursorFtab / 

•Cforward tab> 

41. 



CursorBtab/ 

•Cback tab> 

42, 



CursorOf f / 

•Cdisplay cursor OFF> 

43. 



CursorOn/ 

{display cursor QN> 

44. 



CursorUnd scr 

/ {set underline cursor> 

45, 



Cursor Invrse 

{set inverse cursor> 

46. 



InsertLine/ 

{insert line at cursor} 

47. 



De 1 e teLine/ 

{delete line at cursor} 

48. 



Inser tChar / 

{insert character at cursor} 

49, 



De leteChar/ 

{delete character at cursor} 

50, 



InsertOf f / 

{character insert mode OFF} 

51. 



InsertOn/ 

{character insert mode ON} 

52. 



Scrol lOff , 

{scroll mode OFF} 

53. 



Scrol lOn/ 

{scroll mode ON} 

54. 



Pag ingOf f / 

{paging mode OFF} 
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55. 

56. 

57. 

58. 

59. 

60. 

61. 

62. 

63. 

64. 

65. 

66 . 

67. 

68 . 

69. 

70. 

71. 

72. 

73. 

74. 

75. 

76. 

77. 

78. 

79. 

80. 

81. VAR 

82. Beep 

83. CrtTpgm 

84. CrtTvrs 

85. CrtTcpy 

86. CrtEcho 

87. CrtNdef 

88. CrtSdef 

89. CrtShft 

90. CrtBsup 

91. CrtTahd 

92. ExtCRT 

93. WndobiLin 

94. WndowCol 

95. 

96. 

97. <*py 


Pag ingOn, 
WrapOff I 
WrapOn/ 

Or f Mod e i 
T X tMpde/ 

In vr tScr een< 
Vd oNor ( 

Vd o Inv, 

Vd oNorUndf 
VdoInvUnd, 

Ec h oOn/ 
EchoOf f / 

Ty pAhdOn< 
TypAhdOf f, 
UcaseDm 
UcaseOf f < 
l}supOn» 
BsupOff . 
DefStrOn; 
DefStrOf f , 
Def NumOn ; 
DefNumOf f , 
Star tBea t . 
Hear tBeat, 
l.ead I n ) i 


{paging mode 0N> 

{line u/rap OFF> 

Cline wrap 0N> 

{set graphics mode> 

Csettext mode} 

{invert screen video} 

{f.et normal video} 

{set inverse video} 

{set normal underline video} 

{set inverse underline video} 

{echo user input ON} 

{echo user input OFF} 

{type ahead allowed ON} 

{type ahead allowed OFF} 

{convert user input to uppercase ON} 
{convert user input to uppercase OFF} 
Cblank suppress user input ON} 

{blank suppress user input OFF} 
{output default strings ON} 

{output default strings OFT'} 

{output default numeric values ON} 
{output default numeric values OFF} 

{> 

{} 

{} 


char; Cbell character} 

s tr ing C 16 Ji Cpr ogram name string} 
stringCl6Ji {program version number string} 
stringC80J/ {copyright notice string} 
boolean; {echo input flag default - TRUE } 

boolean; {output default number default - TRUE } 

boolean; {output default string def«3ult - FALSE} 

boolean; {convert to uppercase default - TRUE > 

boolean; {blank suppress default - FALSE} 

boolean; {type ahead allowed default - TRUE 3 

boolean; {TRUE if using an external terminal} 
integer; {window size -lines} 

integer; {window size - columns} 
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98. 

99. 
100 . 
101 . 
102 . 

103. 

104. 

105. 

106. 

107. 

108. 

109. 

110 . 
111 . 
112 . 

113. 

114. 

115. 

116. 

117. 

118. 

119. 

120 . 
121 . 


PROCEDURE 

FUNCTION 

FUNCTION 

FUNCTION 

FUNCTION 

FUNCTION 

FUNCTION 

FUNCTION 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

FUNCTION 


CCcrtlOiniti 
Uppercase (ch 
GetLongNum 
GetNum 
GetStr ing 
GetDgte; 
CvStrInt 
CvStrLInt 
CvIntStr 
CvLIntStr 
CrtAct ion 
CrtTitle 
CrtPromp t 
CrtPause 
GoToXY 
Bel iTone 


char ) : char; 

(var num; LongInt): 

(var num: integer): 

<var buf: StringBO) 
char; 

StringSO; vai' num 
StringBO; var num 
integer; var buf. 

LongInt; var buf: 
CrtCommand ) ; 

StringBO) I 
(txt/opt: StringBO); 

(var ch: char); 

( x< y ; integer ) I 

(timbre: byte; durationi per iod 


(buf: 
(buf: 
(num: 
(num: 
( cmd ; 
(txt: 


CrtStatus; 
Cr tStatus ; 
CrtStatus; 


integer ) ; 
Long Int ) ; 
StringSO; 
StringSO; 


CrtStatus; 
CrtStatus ; 
rdx; CrtRdx); 
rdx. CrtRdx); 


integer): integer 


{PROCEDURES/FUNCTIONS for compatibity> 
PROCEDURE Crt (cmd. CrtCommand); 


IMPLEMENTATION 

■C*P> 
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122. 

CONST 


123. 

bs = 

08; {backspace character! 

124 

cr = 

13; {carriage return character! 

125. 

esc = 

27; {escape character! 

126. 

del 

*7F; {backspace character! 

127 



128. 

VAR 


129. 

display: 

integer; 

130. 

BeatCnt : 

integer; 

131 

Crtinf o: 

packed array CCrtCommand] of char 

132. 

Prefixed 

: array CCr tCommand 3 of boolean; 

133. 

h e X s t r : 

array CO. . 153 of char; 

134 



135. 

FUNCTION OSe 

xtCRT: boolean; 

136. 

FUNCTION OStiffiDv: integer; 

137. 

FUNCTION OSdispDv. integer; 


138. 

139 

140. 

141. 


FUNCTION pOScurWnd: 
FUNCTION pOSsysWnd 


pBy tes; 
( u/ndnbr ; 


integer): pBytes; 


EXTERNAL; 

EXTERNAL; 

EXTERNAL; 

EXTERNAL; 

EXTERNAL; 


142. -C Uppercase > 

143. -C Convert charac ter to upper case 

144. -C > 

145. 


146. FUNCTION UpperCase {(ch; char): char>; 

147. begin 

148 if ch IN C'a'.. 'z'l then uppercase := chr ( ord ( ch )-ord ( 'a ' )+ord ( 'A ' ) ) 

149 else uppercase := ch; 


150. end; 

151 

152 . 

153. < GoToXY > 

154. -C Position cursor 

155. < > 

156. 


157. PROCEDURE GoToXY integer)!; 

158. begin 

159. if ExtCRT 

160. then write (chr(esc)/ . c hr ( y +32 ) , chr ( x+32 ) ) 

161. else write (chr(esc)»'=Schr(x);chr(y)); 

162. end; 

163. 

164. 

165. 


<*py 
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166. 

167. 

168. 

169. 

170. 

171. 

172. 

173. 

174. 

175. 

176. 

177. 

178. 

179. 

180. 
181. 
182, 

183. 

184. 

185. 

186. 

187. 

188. 

189. 

190. 

191. 

192. 

193. 

194. 

195. 

196. 

197. 

198. 

199. 

200 . 
201 . 
202 . 

203. 

204. 

205. 

206. 

207. 

208. 

209. 

210 . 
211 . 
212 . 

213. 

214. 

215. 

216. 
217. 


•C CrtAction > 

■C 

•C Perform CRT action 
■C 

{ > 


on -C(cmd: CrtCommand ) .>; 

nteger; buf: packed array LI . 3.1 of char 


PROCEDURE CrtActi 
var cmdlen: 
begin 
cmd len : - 0; 

if Pref i xed Ccmd 3 then begin 
cmdlen := cmdlen+l; 
bufCcmdlenD : == CrtInfoCLeadInD 
end ; 

case cmd of 


EchoOn 

CrtEcho 

= TRUE 

EchoOf f 

CrtEcho 

= FAI.SE 

TypAhdOn 

CrtTahd 

= TRUE 

TypAhdOf f 

CrtTahd 

= FALSE 

UcaseOn 

CrtShf t 

= TRUE 

UcaseOf f 

CrtShf t 

= FALSE 

BsupOn 

CrtBsup 

= TRUE 

BsupOf f 

CrtBsup 

= FALSE 

DefStrOn 

CrtSdef 

= TRUE, 

DefStrOf f 

CrtSdef 

: = FALSE 

Def NumOn 

CrtNdof 

= TRUE; 

DefNumOf f 

CrtNdef 

= FALSE 

Star tBeat 
Hear tBeat 

begin BeatCnt := 1; uiriteln; ( 
if BeatCnt > WridowCol-1 

3xit (('rt Action); 


hen begin 

Cr tAc t i on 


(StartBeat); exit (CrtAction); 


Vd oNor , 
Vd o I n V, 
Vd oNorUnd , 
Vd o InvUnd : 


else BeatCnt BeatCnt+1; 


begin 

cmdlen : - cmdlen+J; 
b uf C cmd 1 en 1 : = 'O'; 


end ; 

end; Ccase> 

if CrtInfoLcmdD <> chr(OO) then begin 
cmdlen ; = cmdlen+l; 
bufCcmdlenl ; = Crt Inf oLcmd 1; 

if extcrt then UNITWRITE ( 1 , b u f , cmd 1 en, 0, 1 2 ) 

else UNITWRITE ( d i s p 1 ay , b u f , cmd 1 en, O, 12 ) ; 

e Ti d ; 

end ; 


•C Crt > 

•C Calls CrtAction (for compatibility) 

{ -y 

PROCEDURE Crt {(cmd: CrtCommand ) .>; {same as CrtAction> 

begin CrtAction (cmd); end; 


{*P> 
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218. 

219. 

220 . 
221 . 
222 . 
223 
224. 
225 
226. 
227 
228. 

229. 

230. 

231. 

232. 

233. 

234. 
235 
236. 
237 

238. 

239. 

240. 

241. 

242. 

243. 
244 

245. 

246. 

247 

248 

249 
250. 

251 

252 

253. 

254. 

255 

256 

257. 

258. 

259. 


■C CvLintStr 

{ Convert long integer value to Bin* Oct* Dec* or Hex string value 
^ 

PROCEDURE Cvl IntStr -C(num: longint* var buf; StringSO* rdx: CrtRdx)>* 

var x,idx: integer* sign. ch: chari 

numrt d record case integer of 
1 ; ( 1 i : 1 ong int ) * 

2: <bt: packed array CO. . 313 of 0. . 1 ) * 

end i 


PROCEDURE gutbits Cn: integer); 

var i,nl*n2; integer; 
beg ill 

nl ; irfx--n+l; n2 idx; 
if nl < 0 then nl O; 

X ; 0; 

For j : nl to n2 do 

X := x«2 + numrcd. bt C ( < i div 8)*8) + C7-(i mod 8))3; 
idx ; - i d x-n; 
end; 


begin 

buf ; - ' sign : == ' '; 
if num •= O 

then begin buf : 'O'; exit (CvLIntStr ); end* 

if rdx = DerRdx then begin 
if num < 0 then begin 

if num ^ $80000000 then begin 

buf ; == '-2 147483648'; exit <CvLIntStr>; end* 
«. ign ;k num ;= 0-num; 

c*nd; 

while num <> 0 do begin 

X - num MOD 10; num : = num DIV 10; 
rh := chr(ord('0')+x>; 

buf .* concat (' '*buf>* bufC13 .* ch* 
end; Cu/hileT 

if sign <> ' ' then begin 

buf := concat (' '*buf>; bufCll := sign; end; 
exit (CvLintStr); 
end * 

■C$P> 


•> 

> 
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260. 

261. 

262. 

263. 

264. 

265. 

266. 

267. 

268. 
269 

270. 

271. 

272. 

273. 

274. 

275. 

276. 

277. 

278. 

279. 
280 : 
281. 
282. 
283, 

284 

285 

286 
287 
288. 

289. 

290. 

291. 

292. 


nomrcd. li ;= num; idx := 31; 
repeat 

case rdx of 

BinRdx. getbits (1); 
OctRdx: getbits (3); 

HexRdx: getbits (4); 

end i 


if X > 9 then ch := chr ( ord ( 'A ' >+x-lO) 
else ch := chr(ord('0')+x); 
buf . = concat ( ' '»buf); bufTll :» ch; 
until idx < 0; 

while bufCl3 = 'O' do delete (buf. 1,1); 
end ; 


< CvIntStr > 

■C Convert integer value to Bin. Oct. Dec. or Hex string value 
{ > 


PROCEDURE CvIntStr {(num: integer; var buf: Btring80; rdx: CrtRdx)>; 

var numrcd: record case integer of 
1: (1: longintl; 

2: (w: array CO. .13 of integerl; 

end; 

begin 

if rdx = Dec Rdx 

then numrcd. 1 := num 

else with numrcd do begin 1 : = 0; wC13 := num; end; 

CvLIntStr (numrcd. 1. buf. rdx); 
end ; 
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293. 

294. 

295. 

296. 

297. 

298. 

299. 

300. 

301. 

302. 

303. 

304. 

305. 

306. 

307. 

308. 

309. 

310. 

311. 

312. 

313. 

314. 

315. 

316. 

317. 

318. 

319. 

320. 

321. 

322. 

323. 

324. 

325. 

326. 

327. 

328. 

329. 

330. 

331. 

332. 

333. 

334. 

335. 

336. 

337. 


•C CvStrLInt 
■C 


FUNCTION CvStrLInt {(buf: StringBO; var num: Longint): CrtStatus>i 

var base/ ii inc, mult: integer; 


PROCEDURE cnverr; 
begin num : = 0; 


CvStrLInt := Error; exit (CvStrLInt); 


end ; 


begin 

while pos(' '/buf) <> 0 do delete (buf/pos(' '/buf)/l); 
num := 0; mult ;= 1; base ;= 10; 
if not (bufCn IN C'O'.. '9'J> then begin 
case bufCi:J of 

base : ~ 10; 
base : 16; 

'7. ' ; base . = 8; 

begin base := 10; mult .= -1 end; 
end; •Cca5e> 
delete (buf, 1,1); 
end ; 

for i .= 1 to length(buf) do begin 

if not (bufCiJ IN C'O'. . '9', 'A'. . 'F'l) then cnverr; 
inc := ord ( b uf C i 3 ) -48; 

if inc > 9 then inc := int-7; < 65-48 = 17, 17-7 10 > 

if not (inc < base) then cnverr; 
num ; = num * base + inc; 
end ; 

num : - num * mu 1 1; 

CvStrLInt := Normal, 
end; 


> 

> 


< CvStrInt y 

{ y 


FUNCTION CvStrInt {(buf: StringBO; var num; integer); CrtStatus>; 
var li: Longint; 

begin 

CvStrInt ;= CvStrLInt (buf,li); 

num : = ord ( 1 i ) ; 

end; 


<%P> 
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338. 

339. 

340. 

341. 

342. 

343. 

344. 

345. 

346. 

347. 

348. 

349. 

350. 

351. 

352. 

353. 

354. 

355. 

356. 

357. 

358. 

359. 

360. 

361. 

362. 

363. 

364. 

365. 

366. 

367. 

368. 

369. 

370. 

371. 

372. 

373. 

374. 

375. 

376. 

377. 

378. 

379. 

380. 

381. 

382. 

383. 

384. 

385. 


{ Readstring > 

{ y 

FUNCTION Readstring (var buf: StringOO; 

BsupFg» Shf tFg» PrmpFg/ NumOn ly : boolean): CrtStatus; 

var C;Cl: char; i: integer; validnum: boolean; 

begin 

if ShftFg then 

for i := 1 to length(buf) do bufCiD := uppercase (buftij); 
if BsupFg then 

while pos(' ',buf) O 0 do delete (bufipos(' '»buf).l)> 
if PrmpFg then begin 
write (buf); 

for i := 1 to length (buf ), do write (chr(bs)); 
end ; 

Readstring := Normal; 

if not CrtTahd then unitclear (1); 

read ( c ) ; 

if EOLN then exit (ReadStr ing ) ; 

i : = 0; buf := ' CrtAction (ErasEOL); 

repeat 

if not CrtEcho then 

if not (ord(c) in Cdel^bs]) then 
write (chr(bs)f' 'ichr(bs)); 
case ord(c) of 
dell bs: beg in -Cbs} 

if i > O then begin 

delete (bufiiil); i i-1; 

if CrtEcho then write (chr(bs)i ' 'iChr(bs)); 
end ; 

c : = c h r ( 0 ) ; 
end ; 

esc: begin C e s c > 

Readstring := ESCAPE; exit (Readstring); 
end ; 

end; Cease} 

if NumOnly and ( r <> chr (0)) then begin 
validnum := FALSE; 
c : = upp ercase ( c ) ; 
if i = 0 

then begin 

if c in C 'O'. . '9', '-'3 then beg ' 

validnum := TRUE; 
cl : = c; 

if cl in C'O'.. '9':i then cl := ^ 

end; 

•C*P> 


end 
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386 . 

387 . 

388 . 
389 

390 . 

391 . 

392 . 

393 . 

394 

395 

396 
397 . 
398 ^ 

399 

400 

401 

402 
403 . 

404 

405 

406 . 

407 . 

408 . 

409 . 
410 

411 . 

412 . 

413 . 

414 . 

415 . 

416 . 

417 . 


else begin 

case cl of 

'7.': 

endi' 

end; 

if not validrium then 
write ( chr (bs)< ' 
c := chr<0>; 
end; 

end ; 


if c in C 'O'. . '7'3 
if c In C 'O'. . '9'3 
if c in C 'O'. . '9'. 

Teasel 

begin 

't chr < bs ) I beep ) ; 


then validnum ; 
then validnum : 
'A'. . 'F'3 
then validnum : 


if i - BO 

then begin 

write (beep); 

if CrtEcho then write <chr(bs)< ' '/chr(bs)); 
end 

else if c O chr(O) then begin 
buf := concat (buf# ' 
i : = i + 1; bufCi 3 : = a 


end; 

read (c); 
until EOLN; 
if ShftFg then 

for i . - 1 to 
if BsopFg then 
while pos< ' 

end; 


length(byf) do bufCi3 := uppercase <bufCi3); 
buf) O O do delete (buf»pos<' '^buf)>l)i 


= TR! 
= TR! 

= TR! 


TfP> 
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418. < OetLangNum 

419. -C 

420. 

421. FUNCTION GetLonyNum <(var num; Longint): CrtStatusli 

422. var snum; StringSOi 

423. begin 

424. if not CrtNdef then num : = 0; 

425. CvLIntStr ( num, snum/ DecF?d x ) / 

426. if Readstring ( snum, TRUE, TRUE, CrtNdef , TRUE) = Escape then begin 

427. num := 0; QetLongNum := Escape; exit ( GetLongNum ) ; end; 

428. GetLongNum ;= CvStrLInt (snum, num); 

429. end; 

430. 

431. 

432. -C OetNum 

433. -C . 

434. 

435. FUNCTION GetNum {(var num: integer): CrtStatus>; 

436. var li: Longint; 

437. begin 

438. li := nufti; 

439. GetNum := GetLongNum (li); 

440. num : " or d ( 1 i ) ; 

441. end; 

442. 

443. 

444. -C GetByte 

445. -t 

446. 

447. FUNCTION GetByte -C: char>; 

448. var ch: char; 

449. begin 

450. if not CrtTahd then unitclear (1); 

451. read (ch); 

452. if EOLN then ch : , 

453. if EOF then ch : •-= ' ' 

454. if ch - t: hr (esc ) then ch :- '!'; 

455. if not CrtEcho then write (chr(bs), ' ',chr(bs)); 

456. GetByte : == uppercase (ch); 

457. end; 

458. 

459. 

460. •C*P> 
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461 <. GetString > 

462. -t ^ > 

463 


464 FUNCTION CetString i(var buf: StringOO): CrtStatiis>; 

465 be(n. n 

466 if not. CrtSrtef then huf : 

467 GetString :=ReadString ( b uf . CrtBsop , CrtSh ft , CrtSdef, FALSE ) i 

468 end; 

469 
4’^0 

4'M T C<"tT;itl<; 


4 7;3 

474 PROCEDURE CrlTltle < ( t x t : String80)>; 

475 begin 

4'6 GoIdXV (0,0i; CrtAction (EraseALL); 

47 ;' C (' V. Ar j. on (Vdo)nv); 

478 GoToXV <0,Q); CrtAct.ion (ErasEOL); 

4'^'^' wr:ite (■ Cr tfpgmj ' TSCrtTvrsi '3: ',txt); 

4 GO Q o ]• o y V (0,1); CrtAction ( Er a 3 FOL ) ; 

481 <i)r;tt.e (' U r tTc p y ) •' 

482 C I' t; A c t 1 o v> < V d o M o r ) ; 

483 GoToXY (0,2); (U'tActiion (ErasFOL); 

484 GoToXY (0,3); 


485 end; 

486 

487 

488 i CrtPrompt .> 

48?, < > 

490 


491 PROCEDURE CrtPrompt {(txt, opt: String80)>; 

492, begin 

49.3 GoToXY ( 0. Wnd owl. in- 1 ) ; 

494 if length (txt) <::•• 0 then write (txt) 

495. else write ('Enter option'); 

496 if length (opt) <> 0 then write (' C'.opt* ']'); 

497, write '); CrtAction (ErasFOL); 

498 end; 

499 

500 

501 ■ur>p> 
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502 < CrtPause > 

503. -C > 

504. 


505. PROCEDURE CrtPause <(ch; char)>i 

506 var wp tr 1 , uip tr2; pBytes; line: integer; 

50/ begin 

508 if extcrt 

509 titen begin 

510. line := WndouLin; 

511. CoToXY ( Wndou;Col-27, 1 ine ) 

512. end 

513. e.l se begin 

514. line ■ 1; 

515. luptrl ; pOSrurWnd; 

516 ujptr2 .= pOSsysWnd <2); 

517. UnitStatus ( d i sp lay i up tr2 3 ) ; 

518. OoToXY (0. line); 

519. end; 

520. write ('Press <spdcel> to continue '); CrtAction (ErasEOL); 

521. CrtEcho ; == FALSE; ch := GetByte; CrtEcho := TRUE; 

522. CoToXY (O, line); CrtAction (ErasEOL); 

523 if not extcrt then UnitStatus ( d i sp lay » u;p tr l-'< 3 ) ; 

524 end; 

525. 

526. 

527. C Be 11 Tone > 

528 -C input (timbre: byte; <on and off of the speaker 

529. -C input duration: integer; ■f.nmbr of 50 ms ticks to leave speaker 


530. -i input period: integer): -Ctime between speaker tones 

531. T result integer); -CIORESULTT 

532. ■<: > 

533. 

534. FUNCTION BellTorie; 

535. var bellF'B: record 

536. per: integer; tmb. byte; fil: byte; dur: integer; 

537. end; 

538. TimerUnit: integer; 

539. begin 

540. TimerUnit OStimDv; 

541. with bellPB do begin 

542. per := period; tmb : == timbre; fil := 0; dur :~ duration; end; 

543. UnitStatus ( T i merUn i t , b e 1 IPB , 0 ) ; 

544. BellTone := lORESULT; 

545. end; 

546. 

547. 


548 -C^PP 



VSIXRF — Cross Reference Listing 
File ID. CCCRTIO. TEXT 


February h 1983 
Page 14 


549. -C CCcrtlOinit 

550. -C Unit initialization 

551. -C 

552. 

553. PROCEDURE CCcrtlOinit; 

554. type WinStatBuff = record xhome# yhome/ xlen» y ) en: integer; end; 

555. var i: integer; ts; String32; ujs; WinStatBuff; 

556. begin 

557. ts‘:= '0123456789ABCDEF'; 

558. for i: = O to 15 do hexstrCil : = tsCi + i:i; 

559. Beep . = chr(7); 

560. CrtEcho := TRUE; -Cinput echo flag> 

561. CrtTahd := TRUE; {type ahead allowed flag> 

562. CrtShft ;= TRUE; {convert to uppercase flag> 

563. CrtBsup ;= FALSE; {suppress spaces flag> 

564. CrtSdef := FALSE; {default string processing> 

565. CrtNdef := TRUE; {default number processing> 

566. CrtTpgm := 'pgmid'; CrtTvrs ;= '0.0'; 

567. CrtTcpy := '(c) Copyright 1983 Corvus Systemsi Inc. 

568. ExtCRT ; OSextCRT; 

569. display := 0; WndowLin := 23; WndowCol ;= 79; 

570. if not ExtCRT then begin 

571. display := OSdispDv; 

572. UnitStatus ( d i sp 1 ay i u;s, 5 ) ; 

573. if ioresult = 0 then begin 

574. WndowLin := ws.ylen; WndowCoI ;= us.xlen) end; 

575. end; 

576. 


577. 

CrtInfoCLeadIn:i 

= 

c hr ( esc ) ; 

Pref ixedCLeadIn3 


FALSE 

578. 

Crtinf o {Heart Beat :i 



Prcf i xed LHeartBeat3 


FALSE 

579. 

Crtinf oCStartBeat 3 

-• 


Pref i xedCStartBeat3 

= 

FALSE 

580. 

Crtinf oCEchoOn] 

= 

chr (00) ; 

PreflxedCEch oOnl 

= 

FAl. SE 

581. 

Crtinf oCEchoOff 3 


chr (00); 

Pref ixedCEchoOff 3 

= 

FALSE 

582. 

CrtInfoCTypAhdOnD 


c h r ( 00 ) ; 

PrefixedCTypAhdOn3 

= 

FALSE 

583. 

CrtInfoCTypAhdOf f 3 


chr (00); 

Pref ixedCTypAhdOff 3 

= 

FALSE 

584. 

Crt Inf oCUcaseOn 3 

= 

chr (00); 

PrefixedLUcaseOn3 

= 

FALSE 

585. 

CrtInfoCUcaseOf f 3 

= 

c hr ( 00 ) ; 

Pref ixedCUcaseOf f 3 

= 

FALSE 

586. 

Crt Inf oCBsupOn 3 


chr (00); 

PrefixedCBsupOn3 

= 

FALSE 

587. 

Crtinf oCBsupOff 3 


chr (00); 

P r e f i X e d C B s u p 0 f f 3 

= 

FALSE 

588. 

CrtInfoCDefStrOn3 


c h r ( 00 ) ; 

PrefixedCDefStrOn3 

= 

FALSE 

589. 

Crtinf oCDefStrOff 3 

= 

c h r ( 00 ) ; 

Pref ixedCDefStrOf f 3 

= 

FALSE 

590. 

Crt Inf oCDefNumOn 3 

= 

chr (00); 

Pr ef i xed CDef NumOn 3 

= 

FALSE 

591. 

CrtInfoCDefNumOf f 3 

= 

chr (00); 

Pref i X ed CDef NumOf f 3 : 

= 

FALSE 


592. 

593. if ExtCRT 

594. then begin 

595. 

596. Crtinf oCEraseALLl : = Pr ef i x ed CEra seALLD 

597. CrtlnfoCErasEOSl := 'Y'; Pref i xed CErasEOSl 

598. CrtlnfoCErasEOLl := 'T'; Pr e f i x ed CErasEOL J 

599. 

600. Crtinf oCCursorHomel := chr(30); Pref i xedCCursorHomeJ 

601. Crtinf oCCursorUp ] := chr(ll); Pref i xedCCursorUpl 

602. Crtinf oCCursorDou/n] := chr(lO); Pr ef i x ed CCur sorDoum 1 
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603. 

CrtlnfoCCursorRightl 

= 

chr(12> 

Pref i xedCCursorRight3 

= 

F 

604. 

Crtinf 0 C Cur sorLeft 3 

= 

c hr ( 08 ) 

PrefixedCCursorLeft3 

■= 

F 

605. 

Crtinf occur s orFtab 3 


chr (09) 

Pref i xed CCur sorFtab 3 

= 

F 

606. 

CrtInfoCCursurBtab3 

= 

' I 

PrefixedCCursorBtabl 

= 

T 

607. 

608. 

CrtInfoCInsertLine3 

_ 

'E'i 

Pref i xedC Inser tLine 3 

~ 

T 

609. 

CrtInfoCDeleteLine3 

= 

'R 'i 

PrefixedCDeleteLine3 


T 

610. 

CrtInfoCInsertChar3 

= 

'Q'i 

PrefixedCInsertChar3 

= 

T 

611. 

CrtInfoCDeleteCharJ 

= 

'W 'i 

Pref ixedCDe let eChat3 

- 

T 

612. 

613. 

CrtInfoCCursc»rUndscr3 

_ 

chr (00) 

Pref i xedCCursorUndscr 3 


F 

614. 

CrtInfoCCursorInvrse3 


chr (00) 

PrefixedCCursorInvrse3 

:= 

F 

615. 

Crtinf oCCursorOf f 3 

s 

chr (00) 

Pref i xedCCursorOf f 3 

= 

F 

616. 

Crtlnf oCCursorOnD 

= 

chr (00) 

Pr ef i X ed CCur sorOn 3 


F 

617. 

Crt.Tnf oCScrol lOf f 3 

= 

chr (00) 

Pref ixedCScrollOff 3 

:= 

F 

618. 

Crtinf oCScrol lOn 3 


chr (00) 

PrefixedCScrollOn3 

- 

F 

619. 

Crt.lnfoCPagingOff3 

= 

chr (00) 

PrefixedC Paging Of f3 

= 

F 

620. 

Crt Inf 0 CPag ingOvi 3 

s 

chr (00) 

PrefixedCPagingOn3 


F 

621. 

CrtInfoCWrapOf f 3 


c hr ( 00 ) 

Pr efixedCWrapOff3 

•= 

F 

622. 

Crtinf oCWrapUn3 

= 

chr (00) 

PrefixedC Wrap On 3 

= 

F- 

623. 

CrtInfoC InsertOf f 3 


c h r ( 00 ) 

PrefixedCInsertOff.1 


F 

624. 

CrtInfoCInsertDn3 

= 

c hr ( 00 ) 

PrefixedC Insert On 3 

- 

F 

625. 

626. 

Crtinf oC Or f node 3 

_■ 

c hr ( 00 ) 

Pref i xedCGrfModel 


F 

627. 

Crtinf oCTxtnode 3 

= 

chr (00) 

Pref i xedCTxtnode3 

•= 

F 

628. 

CrtInfoC InvrtScreenI 


chr (00) 

PrefixedCInvrt Screen! 

■= 

F 

629. 

CrtlnfoCVdoNor 3 

= 

'0 'i 

Pref i xedCVdoNor 3 


T 

630. 

Crtinf oCVdoInv3 

= 

'4 

Pref i xedCVdoInv3 

: - 

T ' 

631. 

Crtinf oCVdoNorUnd3 

= 

'B'i 

Pref i xedCVdoNorUnd 3 

; = 

T ' 

632. 

Crt Inf o C Vd Cl InvUnd 3 

= 


Prefi xedCVd o InvUnd 3 

: ■= 

T ' 

633. 

634. 

635. 

636. 

637. 

end 

elsebegin 

Crtinf oCEraseALL3 


'J 

Pref i xedCEraseALL 3 


T' ‘ 

638. 

Crtinf oCErasE-OSI 

: = 

'Y 

Pref i xedCErasEOSl 

: - 

T ' 

639. 

Crtinf oCErasF:OL3 

: = 

'K 

Pr ef i xed CErasEOL3 


,r ■ 

640. 

641. 

CrtInfoCCursorHome3 

_ 

'H' i 

Pr ef i X ed CCur sorHome 3 

: 

T * 

642. 

Crtinf occurs orUp 3 

= 

'A 'i 

Pr ef i X ed CCur sor Up 3 

: - 

T 

643. 

Crtinf oC Cursor Down 3 

=■ 

'B'i 

Pr ef i xed CCursorDowri 3 

: -■ 

■f ' 

644. 

Cr t Inf 0 C Cur sorR i g h t 3 

= 

'C '; 

Pref i xedCCursorRightI 

: = 

T' ' 

645. 

Crtinf oCCursorl_eft3 


'D'i 

Pref i xedCCursorLef t 3 

: - 

T ' 

646. 

Cr t Inf o CCur sorFtab 3 


c h r ( 09 ) , 

i Pref i xedCCursorFtab 3 

: - 

F ' 

647. 

Cr t Inf o C Cur sorB tab 3 

= 

' i ' i 

Pr ef i xed CCursbrBtab 3 

: = 

T ^ 

648. 

649. 

Crt Inf 0 C Inser tLine 3 

_ 

'E 'i 

Pref i xed C Inser tLine 3 


T ' 

650. 

Cr t Inf o C De 1 eteLi ne 3 

= 

'R 'i 

Pr ef i X ed CDe 1 e t eL ine 3 

= 

T ' 

651. 

CrtInfoC InsertChar3 

= 

'Q 'i 

PrefixedCInsertCharl 

- 

T' ' 

652. 

Crtinf oC Del eteC bar 3 

= 

'W 'i 

Pr e f i xed CDe 1 e t eChar 3 

: ~ 

T ' 

653. 

654. 

CrtlnfoCCursorUndscrl 

, „ 

'u ' i 

Prefi xedCCursorUndscr 3 : 


T 

655. 

CrtInfoCCursorInvrse3 

: = 

'V ' i 

PrefixedCCursorInvrss3: 

= 

T 

656. 

CrtInfoCCursorOff3 

: = 

'b 'i 

Pref i xedCCursorOf f 3 

= 

T 
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657. 


Crtinf oTCursorOnJ 

= 

'c ' 

Pref i xedCCursorOn3 


:= 

T! 

65B 


CrtInforScro.UOf f ] 

= 

'r \ ' 

Pref i xedCScrollOff 3 


= 

T! 

659, 


CrtInfoCScrollOnD 

= 

' s ' 

Pref i xedCScrol 10n3 


= 

T ! 

660 


CrtInfoCPagingOff 3 

= 

'y ' 

Pref i xedCPag ingOf f 3 



T ! 

66 1 , 


CrtInfoCPag ingOn3 

= 

'a ' 

Pref i xedCPagingOn3 


= 

T! 

662 


CrtInfolWrapOff 3 

= 

' X ' 

Pref i xedCWrapOff 3 



T! 

663 


Crtinf oCWrapQn3 

= 

'w ' 

Pref i xedCWrapOn3 


= 

T! 

664 


Crtinfor InsertOf f 3 


'r ' 

Pref i xedCInsertOff 3 


= 

T! 

66 5. 


Crtinf oC Inser tOn3 

= 

'q' 

Pref ixedC Inser tOn3 



T ! 

666 









667 


CrtInforGrfMode3 

= 

'9' 

i Pref i xed COrf Mode3 


= 

T! 

66B 


Crtinf orTxtModeJ, 

= 

't ' 

i Pref i xedCTx tMode3 


,= 

T! 

669 


CrtlnfoT InvrtScreen3 

= 

' z ' 

Pref i xedC In vrt Screen 3 

s 

T ! 

670. 


Crtinf oCVdoNor 3 

= 

'O' 

Pref i xedCVdoNor3 


= 

T! 

671 


C r 1 1 n f Q r V d o I n V 3 

= 

'4' 

PrefixedCVdoInv3 


- 

T! 

672 


Crtinf or VdoWorUnd 3 

= 

'8' 

Pref i xedCVdoNorUnd3 



T! 

673 


Cr 1 1 n f 0 L‘ Vd o I n vUnd 3 

; = 

/<* - 

Pref i xedCVdoInvUnd3 



Tf 

6 75 


end i 







676 

e n ?i , 








677 









67B. 

(j n d . 








6 7« 
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0 

133 

J 75 

203 

204 

226 


270 

2B2 

287 

300 

303 


377 

396 

404 

413 

424 


493 

494 

496 

518 

522 

00 

200 

580 

581 

582 

583 


590 

591 

613 

614 

615 


622 

623 

624 

626 

627 

08 

123 

604 




09 

605 

646 




1 

173 

177 

187 

188 

191 


253 

256 

263 

269 

271 


306 

310 

312 

314 

346 


413 

450 

480 

493 

514 

10 

i.!51 

267 

304 

307 

310 

1 1 

601 





12 

203 

204 

603 



13 

.124 





15 

J33 

558 




16 

83 

84 

308 



2 

226 

: ’36 

282 

483 

516 

23 

569 





27 

125 

r>ii 




3 

173 

264 

484 

517 

523 

30 

600 





31 

226 

260 




32 

160 





4 

265 





48 

316 





5 

572 





7 

236 

317 

559 



79 

569 





7F 

126 

' 




8 

236 

309 




80 

85 

399 




80000000 

24 6 





9 

267 

317 




BASE 

297 

304 

307 

308 

309 

BEATCNT 

130 

187 

188 

191 


BEEP 

82 

395 

401 

559 


BELLPB 

535 

541 

543 



BELLTONE 

113 

534 

544 



BINRDX 

29 

263 




BS 

123 

351 

360 

361 

363 

BSUPFG 

342 

347 

412 



BSUPOFF 

72 

184 

587 



BSUPON 

71 

184 

586 



BT 

226 

236 




BUF 

102 

104 

105 

106 

107 


241 

243 

247 

253 

256 


312 

314 

315 

316 

332 


365 

405 

406 

411 

413 

BYTE 

1 13 

536 




C 

343 

355 

360 

362 

368 


390 

396 

404 

406 

408 
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233 

234 

242 

245 

248 

250 

304 

348 

357 

364 

368 

374 

427 

476 

478 

480 

483 

484 

542 

543 

558 

569 

573 


584 

585 

586 

587 

588 

589 

616 

6^28 

617 

618 

619 

620 

621 


196 

201 

203 

225 

226 

232 

281 

282 

287 

303 

304 

305 

348 

351 

354 

365 

406 

411 


‘J58 

602 


310 318 319 


366 

395 

402 

455 



173 

178 

197 

202 

203 

204 

269 

271 

288 

303 

305 

306 

341 

346 

348 

350 

351 

357 

466 

467 





374 

376 

379 

381 

388 

389 
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Cl 

343 

381 

382 

387 


CCCRTIO 

19 





CCCRTIOINI 

98 

553 




CCCRTIOVER 

26 





CCDEFN 

23 





CH 

99 

ill 

148 

149 

223 


451 

452 

453 

454 

456 

CMD 

108 

1 16 

176 

180 

200 

CMDLEN 

173 

] 75 

177 

178 

196 

CNVERR 

299 

315 

318 



CR 

124 





CRT 

1 16 

213 




CRTACTION 

108 

172 

187 

190 

214 


483 

497 

520 

522 


CRTBSUP 

90 

184 

467 

563 


CRTCDMMAND 

32 

108 

1 16 

131 

132 

CRTECHO 

86 

181 

359 

366 

402 

CRTINFO 

131 

178 

200 

202 

577 


584 

585 

586 

587 

588 


600 

601 

602 

603 

604 


613 

614 

615 

616 

617 


624 

626 

627 

628 

629 


641 

642 

643 

644 

645 


654 

655 

656 

657 

658 


665 

667 

668 

669 

670 

CRTNDEF 

87 

186 

424 

426 

565 

CRTPAUSE 

111 

505 




CRTPROMPT 

1 10 

491 




CRTRDX 

29 

106 

107 



CRTSDEF 

88 

185 

466 

467 

564 

CRTSHFT 

89 

183 

467 

562 


CRTSTATUS 

30 

100 

101 

102 

104 

CRTTAHD 

91 

182 

354 

450 

561 

CRTTCPY 

85 

481 

567 



CRTTITLE 

109 

474 




CRTTPOM 

83 

479 

566 



CRTTVRS 

84 

479 

566 



CURSORBTAB 

41 

606 

647 



CURSORDOMN 

37 

602 

643 



CURSORFTAB 

40 

605 

646 



CURSORHOME 

35 

600 

641 



CURSOR I NVR 

45 

614 

655 



CURSORLEFT 

39 

604 

645 



CURSOROFF 

42 

615 

656 



CURSORON 

43 

616 

657 



CURSORRIOH 

38 

603 

644 



CURSORUNDS 

44 

613 

654 



CURSORUP 

36 

601 

642 



CVINTSTR 

106 

279 




CVLINTSTR 

107 

222 

243 

247 

257 

CVSTRINT 

104 

329 

332 



CVSTRLINT 

105 

296 

300 

322 

332 

DECRDX 

29 

244 

285 

425 


DEFNUMOFF 

76 

186 

591 
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252 

253 

267 

268 

269 

448 

521 

202 

197 

214 

201 

202 

203 

204 



357 

476 

477 

478 

480 

482 

455 

521 

560 




578 

579 

580 

581 

582 

583 

589 

590 

591 

596 

597 

598 

605 

606 

608 

609 

610 

611 

618 

619 

620 

621 

622 

623 

630 

631 

632 

637 

638 

639 

646 

647 

649 

650 

651 

652 

659 

660 

661 

662 

663 

664 

671 

672 

673 





105 342 


288 425 

428 
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DEFNUMON 

75 

186 

DEFSTROFF 

74 

185 

DEFSTRON 

73 

185 

DEL 

126 

360 

DELETECHAR 

49 

611 

DELETELINE 

47 

609 

DISPLAY 

129 

204 

DUR 

536 

542 

DURATION 

1 13 

542 

ECHOQFF 

66 

181 

ECHOON 

65 

181 

ERASEALL 

34 

476 

ERASEOL 

33 

357 

ERASEOS 

32 

597 

ERROR 

30 

300 

ESC 

125 

160 

ESCAPE 

30 

371 

EXTCRT 

92 

159 

FIL 

536 

542 

GETBITS 

229 

263 

OETBYTE 

103 

447 

OETLONGNUM 

100 

421 

GETNUM 

101 

435 

GETSTRING 

102 

464 

GRFMODE 

58 

626 

HEARTBEAT 

78 

188 

HEXRDX 

29 

265 

HEXSTR 

133 

558 

I 

230 

235 


364 

365 

IDX 

223 

232 

INC 

297 

316 

INSERTCHAR 

48 

610 

INSERTLINE 

46 

608 

INSERTOFF 

50 

623 

INSERTON 

51 

624 

INVRTSCREE 

60 

628 

L 

281 

286 

LEAD IN 

79 

178 

LI 

225 

260 

LINE 

506 

510 

LONG I NT 

100 

105 

MULT 

297 

304 

N 

229 

232 

N1 

230 

232 

N2 

230 

232 

NORMAL 

30 

322 

NUM 

100 

101 


251 

260 


427 

428 

NUMONLY 

342 . 

374 

NUMRCD 

224^ 

236 

OCTRDX 

29 

264 

OPT 

no 

496 


590 

589 

588 

363 

652 

650 


517 

523 

569 

571 

581 




580 




596 

637 



478 

480 

483 

497 

638 




161 

370 

454 

577 

426 

427 



203 

508 

523 

568 

264 

265 



456 

521 



427 

428 

439 


439 




467 




667 




578 





236 

297 

314 

315 

377 

399 

406 

411 

237 

260 

270 


317 

318 

319 


651 




649 




664 




665 




669 




287 

288 



577 




330 

332 

333 

436 

511 

514 

518 

522 

107 

225 

281 

330 

310 

321 



237 




233 

235 



235 




353 




104 

105 

106 

107 

286 

287 

300 

304 

438 

440 



260 

280 

286 

287 


572 

520 522 598 639 

570 593 


316 343 346 351 

555 558 


438 439 4-qO 

436 

242 245 246 248 

319 321 333 424 

288 


250 

425 
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OSDISPDV 137 b71 

OSEXTCRT 135 568 

OSTIMDV 136 540 

PAGINOOFF 54 619 660 

PAGINGON 55 620 661 

PBYTES 138 139 506 

PER 536 542 

PERIOD 113 542 

POSCURWND 138 515 

POSSYSWND 139 516 


PREFIXED 

132 

176 

577 

578 

579 

580 

581 

582 

583 

584 

585 


586 

587 

588 

589 

590 

591 

596 

597 

598 

600 

601 


602 

603 

604 

605 

606 

608 

609 

610 

611 

613 

614 


615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

626 


627 

628 

629 

630 

631 

632 

637 

638 

639 

641 

642 


643 

644 

645 

646 

647 

649 

650 

651 

652 

654 

655 


656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

667 


668 

669 

670 

671 

672 

673 






PRMPFG 

342 

349 










RDX 

106 

107 

244 

262 

285 

288 






READSTRING 

341 

353 

356 

371 

426 

467 







SC ROLLOFF 52 617 658 

SCROLLON 53 618 659 

SHFTFG 342 345 410 

SIGN 223 241 248 255 256 

SNUM 422 425 426 428 

STARTBEAT 77 187 190 579 

STRING 83 84 85 

STRING32 555 

STRING80 102 J 04 105 106 107 109 110 341 422 

TIMBRE J 13 5^J2 

TIMERUNIT 538 540 543 

TMB 536 542 

TS 555 557 558 

TXT 109 110 479 494 

TXTMODE 59 627 668 

TYPAHDOFF 68 182 583 

TYPAHDON 67 J82 582 

UCASEOFF 70 183 585 

UCASEON 69 183 584 

UPPERCASE 99 146 148 149 346 376 411 456 


VAL I DNUM 

343 

375 

380 

388 

389 

VDOINV 

62 

193 

477 

630 

671 

VDQINVUND 

64 

195 

632 

673 


VDONOR 

61 

192 

482 

629 

670 

VDONORUND 

63 

194 

631 

672 


N 

282 

287 




WINSTATBUF 

554 

555 




WNDNBR 

139 





WNDOWCOL 

94 

188 

511 

569 

574 

WNDOWLIN 

93 

493 

510 

569 

574 

WPTRl 

506 

515 

523 



WPTR2 

506 

516 

517 



WRAP OFF 

56 

621 

662 
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wrafgn 

*.3 7 

A22 

663 







WS 


t>/2 

1374 







X 

I J .2 

160 

161 

1*23 

234 

236 

251 

252 

267 268 

XHOME 

Y'34 









XLEN 


1.-74 








V 

.1 12 

1 60 

161 







YHOMF. 

:/.:4 









YLFN 

4 

•/74 
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1 

2 . 

3. 

4. 

5. 

6 . 

7 . 

8 . 
9. 

10 . 

11 . 

12 . 

13. 

14. 

15. 

16. 
17. 
18 
19 
20 . 
21 , 


•C CCDCPIO. TEXT > 


■C 

< CCDCPIO — Corvua CONCEPT DataCom and Printer 1/0 Unit 

{ Copyright 1983 Corvus Systems, Inc. 

< San Jose, California 

< 

•C All Rights Reserved 

< 

•C V 1.0 04-08-82 MB Original unit (was CCprtIO) 

< V 2, 0 12-10-82 KB Updated to now functions and datacom added 

•C 


<*R-> 

UNIT CCdcpIO; 

INTERFACE 

USES -CifU /CCUTIL/CCL IB> CCdefn; 


22. CONST 

■C UnitStatus 

f unc t ion codes 3 

23, 

-t not used by 

this 

unit > 

24. 





25 

•{.Printer driv 

er > 


26. 

FCMODECHO 

= 

»so 

■{toggle transpar en t/ trans late .T.Gdel 

27. 

FCINS1 ALT 


$81 

{install alt char translate table! 

28. 

FCATTCHPR 


$82 

■(attach printer to unit! 

29. 

FCBLCTPITCH 


$83 

{select pitch - 10 or 12} 

30. 

FCSLCTINCH 

= 

$84 

(select lines per inch - 6 or 8! 

31. 

FC INST ACT 

= 

$85 

(install printer action table! 

32. 

FCCLPISTAT 

= 

$86 

{return state of CPI and LPI> 

33. 





34. 

■IDataCom driv 

e 



35. 

FCRDSTATUS 

:= 

$07 

{read buffer status! 

36. 

FCWRSTATUS 


$08 

{write buffer status! 

37. 

FCBETHIWATER 

:= 

$09 

{set hi water mark for read buffer! 

38 

FCSETLOWATER 

.-= 

$0A 

{.set low water mark for read buffer! 

39. 

FCRDOUTDSBL 

.•= 

$0B 

{'toggle read buffer output disable - BUFFER 

40. 

FCRDINDSBL 


$0C 

{toggle read buffer input disable - PORT' TO 

41. 

FCWROUTDSBL. 

= 

$0U, 

{toggle write buffer output disable - SUFFER 

42. 

FCWRINDSBL 

= 

$0E 

{toggle write buffer input disable - USER TO 

43. 

FCWRBUFCHRS 

= 

$0F. 

{get the number of characters in the write b 

44. 

FCRDBUFCHRS 

:= 

$10- 

{get the number of characters in the read bu 

45. 

FCAUTOLF 

= 

$11- 

{toggle the forced auto line feed flag! 

46, 

FCBTWNENG 

= 

$12- 

{set the number of chars between EiNQ's or ET 

47. 

FCRDALTBUF 


$13, 

{set an alternate read buffer! 

48. 

FCWRALTBUF 

= 

$14- 

{set an alternate write buffer! 


49. 


<*P> 
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50 

i baucf rate codes > 


51. 

BAUD300 = 0 



52. 

BAUD600 1 



53. 

BAUD I 200 = 2 



54 

BAUD2400 == 3 



55. 

BAUD4800 = 4 


i default 3 

56. 

BAUD9600 5 



57. 

BAUD 19200 = 

f>i 


58. 




59.' 

i parity codes > 


60. 

PAR DISABLED 

= Oi 

C default 3 

61. 

PAR ODD 

- 1 i 


62. 

PARE9EM 

- 2. 


63 

PARMARKXNR 

" 3; 


64 

P AR SP ACE X NR 

- 4; 


65, 




66. 

i printer port select 

codes 3 

67. 

PORT 1 

- Oi 


68. 

P0RT2 

- li 

i default 3 

69. 




70 

< word size 

( c h a r G i z e ) 

c odes > 

71. 

CHAR3/FJ 

0. 

{ default .3 

72. 

C.HARBX7 

~ :ii 


73 




74. 

{ hand she! fee codes 3 


75 

LIMECTSINVERTED = 0, 


76. 

l-INECrSNORMAL 1; 


77. 

L I NEDBR INVERTED 2, 


78. 

LINEDBRNORMAL ~ 3, 

C default 3 

79. 

L. I MEDCD INVERTED - 4, 


80 

L INEDCDNORNAL ~ 5; 


81 

XONXDf F 

- 6, 


82. 

FNQACK 

7; 


83.. 

ETXACK 

- 8i 

£new protoi 

84. 

MOPROTOaU. 

= 9, 

CTiew protoc 1 

85. 




86. 

i unit m/mbe 

f c o d e s > 


87. 

PRINTFRUNI T 

= Oi 


as. 

DTACOM I UN I T 

= 1, 


89. 

DTAC0M2UNIT 

- 2i 


90. 

DCP INVUNITNO 

-li 


91. 




92: <%P} 
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File ID CCDCPIO. TEXT 

93 TYPE 


94 

WrBufStatus =•• RECORD 


95, 

Buffers! ze 

INTEGER 

96 

FrtJeSpac e 

INTEGER 

97 

ChrBtwnENQ 

INTEGER 

98. 

InputDisbld 

BOOLEAN 

99 

□ utp u tDsb 1 d 

BOOLEAN 

ICO 

AutoLiriFeed 

BOOLEAN 

101 . 

A1 l.Buf Avai 1 

BOOLEAN 

102 

A1 tBuf Ad dr 

pBytej 

103 

AltBufSize 

INTEGER; 

104 

END; 


105 



1 06 

HJOuf'Status - record 


107 

B u f f e r S i z e 

INTEGER 

lOS. 

Fre;eSpace 

INTEGER 

109 

Hi Water 

INTEGER 

1 10. 

LowWater 

INTEGER 

1 1 1 

InputDisbld 

BOOLEAN 

1 12 

Outp utDsb 1 d 

BOOLEAN 

1 13 

1. ofitData 

BOOLEAN 

1 14 

A 1 tBuf Avai 1 

BOOLEAN 

115. 

A1 tDuf Addr 

p B y t p ; 

1 16 

AltBufSize 

INTEGER; 

1 1 Y 

END; 


118. 



119 

F’rtStalusBU- -- RECORD 



120. 



CPI 

INTEC^ER; 


121 



LP I 

INTEGER; 


122 



END, 



123. 






124. 

VAR F'rtAv<3il: boolean 

; -C 

printer available (assigned) 

> 

125 

DC 1 Ava .1 1 : bool ean 

i C 

datacom 1 available (assigned) > 

126 

DC2Avaxl boolean 

; C 

datacom 2 available (assigned) } 

127. 

;PRT 

:i 1 1 1 e y e r ; 

■C 

unit number of /Printer > 


128 

DO 1 

integer, 

•{ 

unit number of /Dtacoml > 


129 

DC 2 

integer, 

-c 

unit number of /Dtacom2 > 


130. 






131 . 

FUNCTION 

DCPStatu fi 

( var 

br , p ar , d c . c h s z , h s : integer): 

integer 

132- 

FUNCTION 

DCPujrFr ee 

< var 

freebytes: integer): 

integer 

133 

FUNCTION 

DCPrdFree 

( var 

freebytes. integer). 

integer 

134 

FUNCTION 

DCPBaudRate 

(baudrate: integer): ' 

integer 

135. 

FUNCTION 

DOPPar ity 

(parity: integer): 

integer 

136. 

FUNCT ION 

DCPCharSize 

(charsize: integer): 

integer 

137. 

FUNCTION 

DCPHandShake 

(protocol: integer): 

integer 

138 

FUNCTION 

DCPGetUnitNo. 



integer 

139. 

FUNCTION 

DCPSetUnitNo 

(unitno: integer): 

integer 

140 

FUNCTION 

PrtDataCom 

( p or 

t: integer): 

integer 

141. 

FUNCTION 

DCPRdStatus 

( var 

RDst: RdBufStatus ) : 

integer, 

142 

FUNCTION 

DCPWrStatus 

(var 

WRst: WrBufStatus): 

integer: 

143. 

FUNCTION 

DCPAutoLF: 



integer, 

144. 

FUNCTION 

PrtTblStatus 

( var 

Chr Inc h < Lines Inch : integer): 

integer: 

145 






146. 

PROCEDURE 

CCdcpIOinit; 
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147. 

148. 

149. 

150. 

151. 

IMPLEMENTATION 

CONST 

{ UnitStatus function codes .> 

152. 

FWRFREE 

0/ -tnew 

- write buffer free space> 

153. 

FBAUDRATE = 

1; 


154, 

FPARITY 

2; 


155. 

FDATACOM = 

3; {new 

- printer orily> 

156, 

FCHARSIZE = 

4; 


157. 

FHANDSHAKE= 

5; 


158. 

FSTATUS 

6; 


159. 

160. 

FRDFREE 

3; {new 

-‘ read buffer free space* 

161. 

162. 

VAR DCPunitno: 

integer; { 

current unit number > 

163. 

•C$P> 
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164 

FUNCTION pOSdevNam 

(untnbr; integer); pString64; 

external ; 

165, 

FUNCTION OSprtrDv; 

integer; 

external; 

166. 

FUNCTION OSdcmlDv; 

i n t e g €:■ r ; 

externa 1 ; 

167. 
1 68 

FUNCTION 0E-id( m2Dv; 

integer; 

external; 

169 

FUNCTION CetError; 

i n 1: e g e r ; 



1 70. 
171 

b e (I i n 
if 

DCPunitno == PRT 

then 

GetError 

; lOEnoprt 

172 

else if 

DCPunitno == DC 1 

then 

GetError 

; = lOEnodtc 

173. 

else if 

DCPunitno = DC 2 

then 

Oettl'rror 

; = lOEnodtc 

174 
175. 
1 76 

else 

end; 



GetPIrr or 

; = lOEinvd ev; 
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t FUNCTION Co tC'ev i c e ( var ior : integer); boolean; 

178. vi=n' (leva vail boolean; 


179 b«(. in 


1 80 
181 
182 

183 

184 

185 

186 
137 
1 88 
189. 
, 1 90 

191 . 

192. 

193. 

194 

195 

196 
19 7 

198 

199 

200 
201 
202 

203 

204 


lov . •■= 0, 

if OCPunitno = F’RT then (leva vail 

elvf if OCPunitno = DC 1 then devavail 
el'ie :i f DCPunitno == DC2 then devavail 
elv. e . devavail 

.if r\iot. dt'vavai] then ior : == GetError; 

GotDevice : devavail; 

end . 

FUNCTION DCPStatus, -C(var br < par / d c » c h s z ^ I 
type 5 1 a t u '3 b 1 0 c k - r e c o t- d 

baud rate, parity< port/ charsi/e/ handshake; integer; end; 
var stb . statu sb lock; 

1 (.1 f ; 1 n t e g r / 

be (.in 

if Go tDevi c e ( i or ) tht’n begin 

UnitOtatus (DCPunitno. s t b . FSTATUS ) ; 
ior .raRESUI..T, 

if ior -= 0 then with s t b do begin 

hr " baudrate; par parity; dc ;= port; 

(h'3z . - charsize; hs ;= handshake; end; 

e n d , 

DCi’Status ~ ior, 
end. 


= PrtAvail 
= DClAvail 
= DC2Avail 
-• FALSE; 


integer); > 


205 FUNCTION DCPuirFree; -CCvar freebijtes; integer); integer;} 
206. vav lor: integer; 

20 7 . begin 

206. if GotDevic(? ( ior ) then begin 

209 UnitStatus ( DCP un i tno. f r eeb y t es . F WRFREE ) ; 

210 lor •= lORFrTSULT; 

211. end / 

212 DCPuirFree : ~ ior; 


213. end. 

214. t^Pf 
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215. FUNCTION DCFrdFree; -C<var freebytes: integer): , integer;. > 

216. var inr; integer; 

217. begin 

218. if DCFunitno = PRT then ior : lOEinvdev 

219. else if GotOev i c e < i or ) then begin 

220. UnitStatus 1 DCPun i tno, f reeb y t es, FRDFREE > ; 

221. ior ;= lORESULT; 

222 end; 

223. DCPrdFree :=^ ior; 

224. end; 

225. 

226. FUNCTION OCPBaudRatei -C(baudrate: integer), integer; > 

227. vav ior: integer* 

228 . begin 

229. if GotDevice < 1 or ) then begin 

230. UnitStatus<DCPunitno, baudrate* FBAUDRATE); 

231. ior lORESULT; 

232. ■ end; 

233. DCPBa-idRcjte lov; 

234. end; 

235 

236. FUNCTION DCPParity; Clparity: integer): integer;.) 

237. var ior integer; 

238. b e (i i n 

239. if GotDevice ( i nr ) then begin 

240. UnitStatus<DCPunitno. parity* FPARITY ) * 

241. ior := iORESUI. T* 

242. end; 

243. DCPParitg := ior; 

244. end; 

245. 

246. FUNCTION Pr tDataCom; C^poTt; integer): integer* > 

247. begin 

248. if’PrtAvail then begin 

249. UnitStatus < PRT* por t * FOATACOM ) ; 

250. PrtDataCom lORESULT; 

251. end 

252. else PrtDataCom --- lOEnoprt; 

253. end; 

254. 

255. FUNCTION DCPCharSize* t(r:harsize integer) integer;> 

256. var ior: integer; 

257. begin 

258. if GotDevi c e < i or ) then begin 

259. UnitStatus(DCPunitno* charsize, FCHARSIZE); 

260. ior ;= lORESULT; 

261. end; 

262. DCPCharSi ze ~ iov; 

263. end; 

264. 

265. FUNCTION DCPHandSha ke; {(protocol: integer); integer; > 

266. var ior; integer; 

267. begin 

268. if GotDevice ( i or ) then begin 



VSIXRF - 
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CCDCF'IO. TEXT 

Un i tStatus (DCPuni tno. protocol < FHANDSHAKE ) ; 
ior TORESULT; 

e n d i 

DCI’HantlShakP ~ lor; 
end 1 

itp-y 
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275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 


FUNCTION PrtTblStatus; var Chr Inc h , L ines I nc h ; integer ); integer; > 
var ior ; integer ; 

pb: PrtStatu sB 1 k ; 
begin 

If DCPunitno <> PRT then ior := DCPINVUNITNO 
else if GotDevi c e ( i or ) then begin 

UnitStatusC DCPunitno, pb, FCCLPISTAT); 
ior := lORESULT; 
if ior ~ 0 then 
begin 

Chr Inch ; = pb. CPI; 

Linesinch ;= pb. LPI; 
end ; 
end; 

PrtTblStatus .» ior; 
end; 


FUNCTION DCPRdStatus; -C(var RDst: RdBuf Status ): integer; > 

var ior; integer; 
be (I in 

if DCPunitno = PRT then ior := DCPINVUNITNO 
else If GotDevi c e C i or ) then begin 

UnitStatus(DCPunitno, RDst, FCRDSTATUS); 

ior := lORESULT; 

end; 

DCPRdStalus := ior; 
end; 


FUNCTION DCPWrStatus; {(var WRst; WrBuf Status ): integer; > 
var ior; integer; 
begin 

if GotDevic e ( i or ) then begin 

UnitStatus (DCPunitno, WRst, FCWRSTATUS); 
ior ;= lORESULT; 
end ; 

DCPWrStatus := ior; 
end ; 


FUNCTION DCPAutoLF; -C: integer; > 
var ior; integer; 
begin 

if GotDevic e (i or ) then begin 

UnitStatus(DCPunitno, i or , FCAUTOLF ) ; 

ior ;= lORESULT; 

end; 

DCPAutoLf ;= ior; 
end ; 


FUNCTION DCPGetUnitNo; -C; integer;} 
b e Cl i n 

PRINTERUNIT 
DTACOMIUNIT 
DTAC0M2UNIT 
DCPINVUNITNO; 


if 


DCPun i tn 0 

= PRT 

else 

if 

DCPunitno 

= DCl 

else 

if 

DCPun i tn 0 

= DC2 

else 





then DCPGetUnitNo ;= 
then DCPGetUnitNo : = 
then DCPGetUnitNo : == 
DCPGetUnitNo := 
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329. end; 

330. 

331. FUNCTION DCPSetUnitNoi C(unitno. integer): integer;} 


332. 

var ior j SVunitno : 

integer; 


333. 

bad: boolean; 



334. 

b eg in 



335. 

bad : = false; 



336. 

SVunitno := DCPun 

i tno; 


337. 

case unitno of 



338. 

PR INTERUNIT: 

DCPun i tno 

: = PRT; 

339. 

DTACOmUNIT: 

DCPun i tno 

: = DC 1 ; 

340. 

DTAC0M2UNIT: 

DCPunitno 

: = DC2; 


341. otherwise: bad := true; 

342. end; 

343. if bad then ior := lOEinvdev 

344. else if NOT GotDevi c e ( i or ) then DCPunitno :- SVunitno; 

345. DCPSetUnitNo := ior; 

346. end; 

347. 

348. PROCEDURE CCdcpIOinit; 

349. var pIDptr: pBtring64; i: integer; 

350. begin 


351. 

PRT : -■= 

OSprtrDv; -C 

unit 

number of 

/Printer > 


352. 

DC 1 ; ---- 

OSdcmlDv; -C 

unit 

number of 

/Dtacoml > 


353. 

DC 2 : 

0SdC(n2Dv; < 

unit 

number of 

/Dtacom2 > 


354. 

DCPunitno : = PRT; -C 

default unit is 

printer > 


355. 

p IDp tr 

: = pOSdevNam 

(PRT), 

PrtAvai 1 

: = ( p I Dp tr = 

'PRINTER 

356. 

p IDp tr 

pOSdevNam 

( DC 1 ) , 

DClAvail 

: = ( p IDp tr ' = 

'DTACOMl 

357. 

p IDp tr 

: = pOSd evNam 

(DC2), 

DC2Avail 

: = (pIDptr - = 

'DTACQM2 

358. 

if DClAvail then beg 

in 





359. UnitStatus ( DC 1 , i . FWRFREE ) ; 

360. if IORESULT O O then begin 

361. PrtAvail := p-ALSE; 

362. DClAvail := FALSE; 

363. DC2Avail := FALSE; 

364. end; 

365. end; 

366. end; 

367. 

368. END. 

369. 

370. 
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0 

51 

60 

67 

07 

35 



08 

36 



09 

37 



OA 

38 



OB 

39 



OC 

40 



OD 

41 



OE 

42 



OF 

43 



1 

52 

61 

68 

10 

44 



1 1 

45 



12 

46 



13 

47 



14 

48 



2 

53 

62 

77 

3 

54 

63 

78 

4 

55 

64 

79 

5 

56 

80 

157 

6 

57 

01 

158 

7 

82 



8 

83 



80 

26 



81 

27 



82 

28 



83 

29 



84 

30 



85 

31 



86 

32 



9 

B4 



ALTBUFADDR 

102 

115 


ALTBUFAVAI 

101 

1 14 


ALTBOFSIZE 

103 

1 16 


AUTOLIMFEE 

100 



BAD 

333 

335 

34 1 

BAUD 1200 

53 



BAUD I 9200 

57 



BAUD2400 

54 



BAUD300 

51 



BAUD4800 

55 



^AUD600 

52 



BAUD9600 

56 



BAUDRATE 

134 

191 

199 

BR 

131 

199 


BUFFERSIZE 

95 

107 


CCDCPIO 

16 



CCDCPIOINI 

146 

3 <18 


CCDEFN 

20 



CHARS I ZE 

136 

191 

200 

CHARSZ7 

72 



CHARSZ8 

71 



CHRBTWWENQ 

97 



CHRINCH 

144 

285 



71 75 87 152 180 198 


72 76 88 90 1 53 


89 1 54 
155 160 
1 56 


:.!43 


P.30 


P59 


283 360 
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CHSZ 

J31 

200 




CPI 

120 

;»S5 




DC 

131 

199 




DC 1 

128 

172 

182 

326 

T339 

DC 1 AVAIL 

125 

1 02 

356 

358 

362 

DC 2 

1 29 

173 

183 

327 

340 

DC 2A VAIL 

.1. 26 

1 83 

357 

363 


DCPAUTOLF 

143 

313 

320 



DCPBAUDRAT 

134 

226 

;‘33 



DC P CHARS I Z 

1. 36 

255 

262 



DCPGETUNIT 

.138 

323 

325 

326 

327 

DCPHANDSHA 

137 

265 

272 



DCPINVUNIT 

90 

279 

295 

328 


DCPPARITY 

135 

2’ 36 

24 3 



dcprdfre:e 

133 

215 

223 



UCPRDSTATU 

141 

292 

300 



DCPSETUNIT 

139 

331 

345 



DCPSTATUS 

131 

1 89 

202 



DCPUNI TNO 

1 62 

171 

172 

173 

181 


230 

240 

259 

269 

279 


326 

32 7 

336 

338 

339 

DCPWRFREE 

I 32 

205 

21 2 



DCPWRSTATU 

1 42 

303 

310 



DEVAVAIL 

.1 7R 

IBl 

182 

183 

184 

DTACOMIUNI 

88 

326 

339 



DTAC0M2UNI 

89 

327 

340 



ENQACK 

82 





erx-ACK 

fJ3 





FT3AUDRATE: 

1 53 

230 




FCATTCHPR 






FCAUTOLF 

45 

317 




FCBTWNEN<» 

46 





FCCLPISTAT 

32 

281 




FCHARSr ZE 

1 56 

259 




FC I NS TACT 

31 





FC INST ALT 

27 





FCMODECHG 

26 





FCRDALTI3UF 

4 7 





FCRDBUFCHR 

44 





FCRDINDSBL 

40 





FCRDQUTDSB 

39 





FCRDSTATUS 

35 

297 




FCSETHIWAT 

37 





FCSETLOWAT 

38 





FCSLCTINCH 

30 





FCSLCTPITC 

29 





FCVJRALTBUF 

48 





FCWRBUFCHR 

43 





FC1^^RINDSBL 

42 





FCWROUTDSB 

41 





FCWRSTATUS 

36 

- 307 




FDATACOM 

155 

249 




FHANDSHAKE 

157 

26»9 




FPARITY 

1 54 

240 
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FRDFREE 160 220 

FREED YTES 132 133 209 220 

FREESPACE 96 lOS 

FSTATUS 158 196 

FWRFREE 152 209 359 

GETERROR 169 J71 172 173 174 185 

GOTDEVICE 177 186 195 208 219 229 239 258 268 280 296 

306 316 344 

HANDSHAKE 191 200 

HI WATER 109 

HS 131 200 

I 349 359 

INPUTDISBL 98 111 

lOEINVDEV 174 218 343 

lOENODTC 172 173 

lOENOPRT 171 252 


I OR 177 

180 

185 

193 

195 

197 

198 

202 

206 

208 

210 

212 

216 

218 

219 

221 

223 

227 

229 

231 

233 

237 

239 

241 

243 

256 

258 

260 

262 

266 

268 

270 

272 

276 

279 

280 

282 

283 

289 

293 

295 

296 

298 

300 

304 

306 

308 

310 

314 

316 

317 

318 

320 

332 

343 


344 345 


LINECTSINV 

7 5 




UINECTSNOR 

76 




LINEDCDINV 

79 




LINEDCDNOR 

80 




LINEDSRINV 

77 




LINEDSRNOR 

78 




LINESINCH 

144 

286 



LOSTDATA 

113 




LOWWATER 

3 10 




LPI 

:i2i 

286 



NQPROTOCOL 

84 




OSDCMIDV 

166 

352 



0SDCM2DV 

167 

353 



□SPRTRDV 

165 

351 



OTHERWISE 

341 




OUTPUTDSBL 

99 

1 12 



PAR 

131 

199 



PARDISABLE 

60 




PAREVEN 

62 




PARITY 

135 

191 

199 

240 

PARMARKXNR 

63 




PARODD 

61 




PARSPACEXN 

64 




PB 

277 

281 

285 

286 

PBYTE 

102 

115 



PIDPTR 

349 

355 

356 

357 

PORT 

140 

191 

199 

249 

PORTl 

67 




P0RT2 

68 




POSDEVNAM 

164 

355 

356 

357 

PRINTERDNI 

87 

325 

338 


PROTOCOL 

137 

269 
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PRT 

127 

171 

181 

218 

249 

279 

293 323 338 351 


355 







PRTAVAIL 

124 

181 

248 

355 

361 



PRTDATACOM 

140 

246 

250 

252 




PRTSTATUSB 

119 

277 






PRTTBLSTAT 

144 

275 

289 





PSTRING64 

164 

349 






RDBUFSTATU 

106 

141 






RDST 

141 

297 






STATUSBLOC 

190 

192 






STB 

192 

196 

198 





SVUNITNO 

332 

336 

344 





UNITNO 

139 

337 






UNTNBR 

164 







WRBUFSTATU 

94 

142 






WRST 

142 

307 







XONXOFF 81 
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1. -C CCDIRIO. TEXT > 

2 . < 

3. < CCDIRIO — Corvus CONCEPT Volume Directory Unit 

4. -C 

5. -C ( c ) Copyright 1982 Corvus Systems# Inc. 

6. { San Jose# California 

7. -C 

8. { All Rights Reserved 

9. < 

10. -C V 1.0 10-06-82 LEF Original unit 

11. C 

12. i y 

13. <$R-> 

14. 

15. UNIT COdirlO, 

16. 

17. INTERFACE 

18. 

19. CONST 


20. 

H 1 0 c k S i 2 e 

51 2i 


21. 

VIDl emtth 

= V; 


22. 

TIDlength 

= 1.5; 


23. 

MaxDi I'f nt 

= 77; 


24. 




25. TYPE 




26. 

d irrang e 

"■ 0. . MaxDi rEnt; 


27. 

vid 

■ str ing C VIDl eng th .1; 


28. 

t i d 

~ str ing n IDl eng t h :i ; 


29. 

f i 1 e k i n d 

= (UNTYPEDFILE. XDSKFILE, CODEFILE# TEXTFILE. 

INFOFILE- 

30. 


DATAFILE# GRAFF ILE# FOTOFILE# SECURDIR); 


31. 




32. 

daterer 

- packed record 


33. 


year: 0. . 100; C 100 » temp file flag > 


34. 


day; 0. . :U; 


35. 


month; 0. 12; -CO" date not meaningful 

> 

36. 


end ; 



37. f.*P> 
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38. 

39. 

40. 

41. 

42. 

43. 

44. 

45. 

46. 

47. 

48. 

49. 

50. 

51. 

52. 

53. 

54. 

55. 

56. 

57. 

58. 

59. 

60. 
61. 
62. 

63. 

64. 

65. 

66 . 

67. 

68 . 

69. 

70. 

71. 
72 

73. 

74. 

75. 


(lirentry = packed record 

firstblock; integer; 
nextblock: integer; 

MarkBit: Boolean; 

filler; 0. . 2047; 
case fkind; filekind of 
SECURDIR, 

UNTYPEDFILE: 

(dvid: vid; -C Disk volume name > 

decjvblock; integer; { Last block of volume > 
dnumfiles; integer; { Number of fi.Tes > 
dloadtime; integei*; I Time of last access > 
dlastboot: daterec; -C Most recent date setting > 

I'lemFl ipped . Boolean; { TRUE if flipped in memory > 
DskFlipped: Boolean); -C TRUE if flipped on disk > 
XDSKFILE, CODEFILE, TEXTFILE, INFOFILE, 

DATAFILE, GRAEFILE, FOTOFILE: 

(dt.i.d; tid; -C Title of file > 

dlastbyte; 1 . . Bloc kSi z e; < Bytes in last block > 
datcess; daterec); { Last modification date > 

end i 

diroctory = array Tdirrangel of direntry; 

PROCEDURE CCdirlOitJit; 

PROCEDURE GetVolDir ( fvid; vid; 

var fdir; directory; 
var DevBIocked: Boolean; 
var fdevno: integer; 

var DevValid: Boolean); 

PROCEDURE PuiVolDir (var fdir: directory; 

fdevno; integer); 

IMPLEMENTATION 

<*P> 
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76. 

77 . 

78 . 

79 . 

80 . 
81 . 
82 . 

83 . 

84 . 

85 . 

86 . 
87 
88 . 

89 . 

90 . 

91 . 

92 . 
93 

94 . 

95 . 

96 . 

97 . 

98 . 

99 . 
100 . 
101 . 
1 02 . 
103 . 


PROCEDURE xgetdir (fvid: vidi 

var fdir: directory; 
war DevBlocked: Boolean; 

var fdevno: integer; 

var DevValid: Boolean); 

PROCEDURE xputdir (var fdir: directory; fdevno: integer); 

PROCEDURE (JetVolDir -C ( fvid: vid; 

var fdir: directory; 
var DevBlocked: Boolean; 
var fdevno: integer; 

var DevValid: Boolean)}; 

I) e q ;i n 

xgetdir (fvid. fdir, DevBlocked. fdevno, DevValid ) ; 

end ; 

PROCEDURE PutVolDir {(var fdir: directory; 

fdevno: integer)}; 

b e g i n 

xputdir ( fd ir. fdevno ) ; 

( • n d ; 

PROCEDURE CCdirJOinit; 
begin end; 


externa ! 
externa ! 


end . 
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0 

26 

1 

56 

100 

33 

12 

35 

15 

22 

2047 

42 

31 

34 

512 

20 

7 

21 

77 

23 

BLOCKS I ZE 

20 

CCDIRIO 

15 

CCDIRIOINI 

62 

CODEFILE 

29 

D4CCESS 

57 

DATAFILE 

30 

DATEREC 

32 

DAY 

34 

DEOVBLOCK 

47 

DEVBLOCKED 

66 

DEWALID 

68 

DIRECTORY 

60 

DIRENTRY 

38 

DIRRANOE 

26 

DLASTBOOT 

50 

DLASTBYTE 

56 

DLOADTIME 

49 

DNUMFILES 

48 

DSKFLIPPED 

52 

DTID 

55 

DVID 

46 

FDEVNO 

67 

FDIR 

65 

FILEKIND 

29 

FILLER 

42 

FIR5TBL0CK 

39 

FKIND 

43 

FOTOFILE 

30 

FVID 

64 

GETVOLDIR 

64 

GRAFF I LE 

30 

INFOFILE 

29 

MARKBIT 

41 

MAXDIRENT 

23 

MEMFLIPPED 

51 

MONTH 

35 

NEXTBLOCK 

40 

PUTVOLDIR 

70 

SECURDIR 

30 

STRING 

27 

TEXTFILE 

29 

TID 

28 

TIDLENGTH 

22 

UNTYPEDFIL 

29 


33 34 35 


56 

99 

53 

54 

50 57 


78 90 

80 90 

65 70 77 

60 

60 


71 79 82 

70 77 82 

43 


54 

76 90 

84 

54 

53 

26 


93 

44 
28 
53 
55 
28 

45 


42 


82 


90 

90 


96 

96 
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VID 

27 

VIDLENGTH 

21 

XDSKFILE 

29 

XGETDIR 

76 

XPUTDIR 

82 

YEAR 

33 


46 64 76 

27 

53 

90 

96 
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1 

4 

5 

6 

8. 

9 
10 
I 1 
12 

13 

14 

1 '7 
16 

17 

18 

19 

20 
21 


24. 

2 !) 

26. 


2B. 

29. 

30. 
31 

32. 

33. 

34. 

35. 

36. 

37. 

38. 

39. 

40. 

41. 

42. 

43. 


•C CCGRFIO TEXT 

•C 

<. CCGRFIO — Corvus CONCEPT Graphics Support Unit 

■t 

< ( (. ) Copyri(jht 1982 Corvos Systems* Inc. 

•L Ban Jose* California 

•f 

■C All Rights Reserved 

■C V 1.0 04-10-82 MB Original unit 

f V 1. 1 05-.13-82 MB WriteBytes, ReadBytes noui 

T 

^ 

i;s>R-> 

UNIT CCgrflQ; 

INTERFACE 


USES -CSiU CCLIBD- CCdefn* 


CONST 

Grf Miuh i te 
Gr f Mb lack 
GrfMf 1 ip 

G.'CQgrRel 
Grf OgrAbs 
GrfOchRel 
GrfOchAbi. 


C mode values } 


li C qual values 3 
2; 

3; 


PROCEDURE CCgrf lOitcit; 


PROCEDURE Se tori gin 
PROCEDURE PlotPoint 
PROCEDURE DrawLine 
PROCEDURE FillBox 
PROCEDURE CopyBox 
PROCEDURE WriteBytes 
PROCEDURE ReadBytes 


( X * y * qual : integer ) ; 

(x«y*mode: integer); 

( X 1< y 1> x2> y2> mode: integer); 

(xl* yl*u;d* ht* density; integer); 
( X 1> y 1* uid* h t* x2* y2; integer); 
(count: integer; pBuff: pBytes); 

(count: integer; pBuff: pBytes); 


IMPLEMENTATION 


February 1. 1983 

Page 1 

> 


UnitStatus calls 
> 
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44 

45 
4*. 


KOC ==■ *113; 

WRDYTES = 6; RDBYTES =-■ 7; 


■C UnitStatus functions > 


50 , 
51 
5 c.' 

53 

54 


yra|>hbuffer -• record case Integer of 

0: (pi: array tl..l03 of integer); 

1: (pb: array Cl. . 203 of byte); 

end i 

lurbuffrr - record 

b y t e t 0 un t ; integer; 
buffptr: pBytes; 

end ; 


5d 

59 ■ 

60 
61 . 
6 c' 


.1)] = p 1 ay Drv 
h u f 
!nb u f 


integer; 

(j raphbuf f er; 
tur buffer; 
luj 1 0 ; 


function OSdispDv integer; external; 


64 

PROCEDURE 6e l-Or j gin. <. 

(x,y,qual; integer) > 

6 5 

1. e (] X n 



66 

l)uf pb 1 1. :J : ~ ESC; 

buf. pbC23 

: ™ ord ( ' o 

67 

li u f p i 1 2 3 : ~ X ; 

buf. p i C 3 3 

: - y ; 

66 . 

1) uf . p b 1. 7 ,3 : = q oo 1 

mod 128; 


d'? 

unitwri t e ( D i s p .1 a y Dr v, b u f . 7 ) ; 


70 

71, 

e 1 1 d ; 



72 

PROCEDUR.E PlutPuint, C 

(x,y/mode. integer) > 

73. 

h eg :i n 



74. 

buf pbt, 13 ■= ESC, 

buf. pbC23 

: “ 0 r d ( ' p 

75 

1) u f . pi 1, 23 : = X ; 

buf. piC33 

; ^ y ; 

76, 

1) u f , p b 1 7 3 , = mode 

mod 256; 


77, 

nn i twr ) te < D j. s p 1 ayDrv, buf, 7) ; 


78. 

end; 



79 




80. 

PROCEDURE DruujLine; C < 

xl, yl, x2, y2, 

mode; int 

31 

1) e g i n 



82. 

buf. pbt. 13 : ESC; 

buf. pbC23 

; - ord ( ' 1 

83. 

buf . pit 23 . = X 1; 

buf. piC3J 

yl; 

84 

buf. pit 43 , = x2; 

buf. piCS'J 

y2; 

85. 

buf pbf. 113 . mode mod 256; 


86 

unit write (Display Dr v, buf, 11) 

; 

87 

( ' n d ; 



88 




89. 

( *P> 
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90. 

91. 

92. 

93. 

94. 

95. 

96. 

97. 

98. 

99. 
100 . 
101 . 
102 . 

103. 

104. 

105. 

106. 

107. 

108. 

109. 

110 . 
111 . 
112 . 

113. 

114. 

115. 

116. 

117. 

118. 

119. 

120 . 
121 . 
122 . 

123. 

124. 

125. 


PROCEDURE FillBoxi -C ( x 1 , y 1 . uid . h t , d ens i t.y : integer) > 

begin 


buf pblll 

= ESC; 

buf. pbC2.J 

= - 0 r d ( ' f ' ) . 

buf. pi 1 2J 

= xl; 

buf. piC31l 

yl; 

buf pit 4] 

= ht; 

buf. piCSJ 

lud ; 

buf. pbrii: 

; density mod 256. 


unitujr ite 
end ; 

( Di s p 1 ay Dr V. b uf . 11); 


PROCEDURE CopyBox. < (xl 
b e g i ti 

. y 1 > u;d . h t> x2. y 2; Integer) 

buf pbt 1 3 

= ESC; 

buf.pbC2:i 

Ol d ( 'm ' ) i 

buf. p il 23 

= xl; 

buf. piC3J 

y 1 ; 

buf. pif 43 

= h t; 

buf. piC53 

: - tud ; 

buf pi (.63 

= x2; 

buf. piC7.1 

- y2; 


unitwrite (Disp layDrv, buf < I'O; 
end.: 

PROCEDURE WriteHytes/ -C (cotmt; intecier; pUuff: pBytes) > 

begin 

uib uf . b y ter. ount := Lounti 

wbuf . buf Pp tr .- pBuff; 

unit«itatu*3 ( Display Dr Viuibufi WRBYTES ) , 

tr n d ; 


PROCEDURE. ReadBytes; T (count; integer. pBuff: pHytes) > 

beg in 

uibuf. bytecount . ~ ( ount; 

uib uf . b uf f p tr := pBuff; 

un i t s ta tus (Disp lay Drv. ub u P> RDBYT(££> ) ; 

end; 


PROCEDURE CCgrf lOinit; 

begin DisplayDrv ;= OEdispDv; €»nd; 

END. { Unit CCgrf 10 > 
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0 

24 

49 










1 

23 

25 

27 

49 

50 

66 

74 

82 

92 

101 


10 

49 











1 1 

85 

86 

95 

96 








128 

6B 











14 

105 











IB 

44 











2 

28 

66 

67 

74 

75 

82 

83 

92 

93 

101 

102 

20 

50 











256 

76 

85 

95 









3 

29 

67 

75 

83 

93 

102 






4 

30 

84 

94 

103 








5 

84 

94 

103 









6 

45 

.1 04 










7 

4 5 

68 

69 

76 

7.7 

104 






B 

60 











BUF 

58 

66 

67 

68 

69 

74 

75 

76 

77 

82 

83 


84 

85 

86 

92 

93 

94 

95 

96 

101 

102 

103 


J04 

.105 










BUFFPTR 

54 

.1 n 

118 









BYTE 

50 

60 










BYTECOUNT 

53 

1 10 

1 17 









CCDEFN 

20 











CCGRFIQ 

16 











CCGRFIOINI 

3:2 

1 22 










COPYBGX 

37 

99 










COUNT 

38 

39 

1 10 

1 17 








DENSITY 

36 

95 










DISPLAYDRV 

57 

69 

77 

86 

96 

105 

112 

119 

123 



DRAWLINE 

35 

80 










ESC 

44 

66 

74 

82 

92 

101 






FILLBOX 

36 

90 










GRAPHBUFFE 

48 

58 











ORFMBLACK ?4 
GRFMFLIP 25 
GRFM WHITE 23 
GRFQCHABS 30 
GRFQCHREL 29 
GRFQGRABS 28 
GRFQQRREL 27 


HT 

36 

37 

94 

103 







MODE 

34 

35 

76 

85 







OSDISPDV 

62 

123 









PB 

50 

66 

68 

74 

76 

82 

85 

92 

95 

101 

PBUFF 

38 

39 

1 1 1 

118 







PBYTES 

38 

39 

54 








PI 

49 

67 

75 

83 

84 

93 

94 

102 

103 

104 

PLOTPOINT 

34 

72 









QUAL 

33 

68 









RDBYTES 

45 

119 









READBYTES 

39 

1 15 









SETORIGIN 

33 

64 









WBUF 

59 

1 10 

111 

1 12 

117 

118 

119 




WO 

36 

37 

94 

103 
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WRBUFFER 

52 

59 

WRBYTES 

45 

] 12 

WRITEBYTES 

38 

108 

X 

33 

34 

XI 

35 

36 

X2 

35 

37 

Y 

33 

34 

Y1 

35 

36 

Y2 

35 

37 


67 

75 



37 

83 

93 

102 

84 

104 



67 

75 



37 

83 

93 

102 

84 

104 




Ft'bruar y 


1983 
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File ID: CCLBLIO. TEXT Page 1 

1. -C CCLBLIO. TEXT > 

2. -C 

3. -C CCLBLIO — Corvus CONCEPT Label Processing Unit 

4. -C 

5. -C (c> Copyright 1982 by Corvus Systems. Inc. 

6 . < San Jose. California 

7. -C 

8. -C All Rights Reserved 

9. -C 

10. < V 1. O 04-01-B2 KB Original unit 

11. < V 1. 1 07-09-82 LEF Function labels expanded to 8 characters 

12. < V 1. 2 01-11-83 LEF Add conditionals for p-System 

13. < 

14. <!CC>-C Corvus CONCEPT version 

15. <- > 


16. {»R-> 

17. 

18. UNIT CClbllO; 

19. 

20. INTERFACE 

21 . 

22. TYPE 

23. LblKeyStr = stringtBl; 

24. LblRtnStr = stringi:i61i 

25. 

26. PROCEDURE CClbUOiniti 

27. PROCEDURE CC 1 b 1 lOterm; 

28. PROCEDURE Lblslnit; 

29. PROCEDURE LblsOn; 

30. PROCEDURE LblsOff; 

31. FUNCTION LblSet <KN. integer, LblStr; LblKeyStr; 

32. RetStr; LblRtnStr); integer; 

33. 

34. IMPLEMENTATION 

35. 

36. -C$P> 
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37. 

38 

37. 

40. 

41. 

42. 

43. 

44. 

45. 

46. 
47 
48. 

47. 
50. 
51 

52. 

53. 
54 

55. 

56. 
57 
58. 

57. 
60 
61. 
62. 
63. 
64 
65. 
66 
67 
68 . 
67,. 

70. 

71. 

72. 

73. 

74. 

75. 


CONST 

{!CC> Init = »FF; -C initialize labels function code 

<!CC> SetKey = $FEi < set label table entry function code 

<!CC> TurnOff = «FDi -C turn off labels function code 

C'.GO TurnOn = *FCi < turn on labels function code 

TYPE Iblchs = packed array Cl.. 83 of char; 

I blPblock =: record 

KeyNumber: integer; 

Lblrh: Iblchs; 

ReturnStr: LblRtnStr; 

end; 

VAR Systerm. integer; < unit number of label manager systerm > 
FUNCTION OSstrmOv: integer; external; 

PROCEDURE LbJsInit; 

var SKJ^armB 1 oc k ; LblPblock; i: integer; 

begin 

UnitStatus ( Sy s term. i / TurnOff > ; {function uses NO ParameterBl oc k > 
uiith SKParmBlock do begin {initialize all labels to blanks> 

for i ;= 1 to 8 do LblchCi3 := ' '; ReturnStr := ' 
for i 0 to 39 do begin 
KeyNumber ;= i; 

UnitStatus (Systerm. SKParmBlock. SetKey); 
end; {ft)r> 
end; Cu;ith> 

end; 

PROCEDURE LblsOn; 

var i integer; 

begin UnitStatus (Systerm. i> TurnOn); end; 

PROCEDURE LblsOff; 

var i integer; 

begin UnitStatus (Systerm. i. TurnOff ); end; 

{*P> 


> 

> 

> 

> 
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76. 

77. 

78. 

79. 

80. 
81. 
82. 
83. 
84 

85. 

86 . 

87. 

88 . 

89. 

90. 

91. 

92. 

93. 

94. 

95. 
96 
97. 
9S. 
99 

100 . 

101 . 

102 . 


FUNCTION LblSet -C(KN: integer; LblStr: LblKeyStr; 

RetStr; LblRtnStr): 

■<: returns lOKESULT > 

var SKParmB 1 oc k : LblPblock; i: integer, 

begin 

UnitStatus (By sterm, i. TurnOf f ) ; {function us 
with SKParmBlock do begin 
Key Number ; KN; 
f 0T> i : = 1 to B do 

if i > 1 enq th (Lb IStr ) then Lblchliil 
« LblchCi;i 

Returnstr : = RetStr; 
e n d ; 

UnitStatus ( Sy s term, SKParmBloc k , SetKey ) ; 
LblSet lOREBULT; 
end , 

PROCEDURE CCJbliOinit; 

begin Systerm — OBstrmDv; I b Is Ini t; end, 

PROCEDURE CCJblIGtorm; 
begin 
l.blslnit; 
end; 

END { Unit CClbllO > 


i n t e g e T' > ; 


es NO Par anie t er 13 ] oc k } 


: = Lb ] StrC i J ; 
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0 

60 



1 

43 

59 

84 

16 

24 



3« 

60 



8 

23 

43 

59 

CCLBL IQ 

18 



Cr.LBLIOTMI 

26 

93 


CCLBLIQTER 

27 

96 


FC 




FD 

40 



F£ 

39 



FF 

38 



I 

55 

57 

59 


H4 

85 

86 

INIT 

38 



KEYNUliBLR 

45 

61 

83 

KN 

31 

83 


LBLCH 

46 

59 

85 

LBLCHS 

43 

46 


LELKEYSTR 

23 

31 


L BL.PBLOCK 

44 

55 

79 

lblrtnstr 

24 

32 

47 

LCLSET 

31 

76 

90 

LBLSINI.T 

28 

54 

94 

LBLSOFF 

30 

71 


LBLSCIN 

29 

67 


LBLSTR 

31 

85 

86 

□SSTRMDV 

52 

94 


RETSTR 

32 

87 


RETURNSTR 

4 7 

59 

87 

SETKEY 

39 

62 

89 

SKPARMBLOC 

55 

58 

62 

STRING 

23 

24 


SYSTERN 

30 

57 

62 

TURNOFF 

40 

57 

73 

TURNON 

41 

69 



60 61 68 69 72 73 


86 


98 


79 

82 

89 



69 

81 

73 

81 

89 

94 


79 81 
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C CCOMNIO. TEXT 

< 


OMNINET Commands Unit for Corvus CONCEPT 


(c) Copyright 1982 Corvus Systems/ Inc. 

San Jose/ California 


8 

9 , 

10 . 

11 . 

12 . 

13 . 

14 

15 
16 . 
1 7 . 
1 8 . 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 


A.1. 1 Rights Reserved 


01-09-82 

05-15-82 

10-27-82 


PHB 

LEF 

LEF 


Original unit 

CComnlO unit modifications 

OCsndMesg and OCsetRecv call modifications 


Purpose: This UNIT contains procedures uihich construct 

□mninet commands and send them to the Transporter. 

It also defines constants and data structures which are 
u;.eful when programming an Omninet application. 

Hopefully/ a Pascal programmer can use this UNIT without 
knowing the details of the Transporter interface ... 


UNIT CComnlOi 
INTERFACE 

USES CliU CCl.IBl CCdefn; 


31. 

< Trans 

p or ter 

f<e tu 

rn Codes > 


32. 

33 

Waiting 
CmdAcp t 


t>f F 
*FE 

C 

command accepted 

> 

34 

Echoed 


$<:o 

■C 

echo command was successful 

> 

35. 

36 

GaveUp 


*80 

C. 

aborted a send command after MaxRetries tries 

> 

37. 

TooLong 


*81 

■t 

last message sent was too long for the receiver 

> 

38 

NoSoc k t 


*82 

•C 

sent to an uninitialized socket 

> 

39. 

HdrErr 

r..; 

*83 

•C 

sender's header length did not match receiver's 

> 

40 

BadSoc k 


*84 

•C 

invalid socket number 

> 

41. 

I n u s e 

c.- 

*85, 

•C 

tried to set up a receive on an active socket 

> 

42. 

BadDest 


$86, 

•C 

sent to an invalid host number 

> 

43. 

44 

0 k C 0 d e 


0/ 

•G 

success 1 ! ! 

> 

45 

46. 

NoTrans 


-I; 

■c 

indicates that we are unable to communicate 

> 

47. 





with Transporter - strobit failed 

> 


{♦P> 
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SO. 

■C Transporter 

Opcodes} 



Rec vOp 

= *F0 

■C SETUPRECV opcode > 


5i. 

SendOp 

= $40 

■C SE.NDMSG opcode > 


53. 

InitOp 

-= $20 

< INITopcode } 


54. 

EndOp 

= $10 

■C ENDRPXV opcode > 


55. 

DebOp 

= $08 

•C PEEK/POKE opcode > 


56. 

EchoOp 

= $02 

{ ECHOCMD opcode > 


57. 

liJhoOp 

=: $01 

{ WHOAMI opcode > 


58. 





59. 

TYPE 




60. 

pOCrsltRcd ~ 

'•OCrsltRcd; 


61. 

□CrsltRcd == RECORD 


62. 


R t: o d e ; byte; 


63. 


Sourc: bytt*; 


64. 


Len : integer; 


65. 


UCdta: array l'.0. .2553 of byte; 


66. 


END; 


67. 





68. 

VAR 




69. 

OCresult: integerj C similar to lORESULT in 

UCSU Pascal/ ' 

70. 



< may be checked after each Transporter comma' 

71. 

OCrslt 

OCrsltRcd; f result record which is 

used for all command' 

72. 



< except OCsndMesg and OCsetRecv . . ’ 

73. 

OCcurBP: pBytesi { current buffer pointer 

' 

74. 

OCcurRP: pOCrsltRcd; -C current result pointer 

' 

75. 





76. 

PROCEDURE 

CComn lOin i t; 


77. 

PROCEDURE 

OCsndMesg (bp: pBytes; rp: pOCrsltRcd; 

5 n / d 1 n / h 1 n / d s t i n t e ' 

78. 

PROCEDURE 

OCsetRecv (bp: pBytes; rp: pOCrsltRcd; 

sn. din/ bin: integer). 

79. 

PROCEDURE 

OCendRecv (sn: integer); 


80. 

PROCEDURE 

OCinitTrans; 


81. 

PROCEDURE 

OCechoTrans (dost: integer); 


82. 

FUNCTION 

OCpeekTrans (adr: integer): byte; 


83. 

PROCEDURE 

OCpokeTrans (adr: integer; val: byte); 


84. 

PROCEDURE 

OCuihoAml; 


85. 





86. 

IMPLEMENTATION 



87. 





88. 

■C*P> 
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89. CONST 

90. RdyAdr - $30F7K; f address of VIA register Ai used for DMNINET rea 

91 StrAdr - f>30FAli < address of Transporter register > 

93. PerkOp 1^00; 

94 Poke 0(1 " 4iFP . 

90. 

96 t offsets into command record for byte fields > 

97 Op ~ 1/ < opcode > 

9B Sock •{. socket number > 

99 HLcn 11; ( header length > 

100 Dest ~ 13; {. destination for sends > 

101 ELV;t - 5; {, dc’stination for c?cho commands > 

102. PePu ~ 7; <; pc'ek/poke designatOT* fur Deb commands > 

103 PoVal ■•= 8- ( Poke value > 

104 PAdr 5; < Transporter Address to peek or poke > 

106. rvps. 

10.7. pOnmiCmd ~ '■■Omn i Cmd ; 

108 

109 OmniCttid 

110 
1 1 1 
112 


110 
1 16 

117 

1 18 
1 19 

120 Tr:. xRcd ^ RTCORD 

121 C .A8E 1 n t e g c' r IJF 

12,; 1 (I..NG: longint); 

123 2; (PTR: ■•byte); 

124 3: (OPT; pGmniCmd); 

125 4: (RPT; pDCrsltRcd); 

126 5: (ARR. ax ray CO. . 33 of byte); 

127. END; 


RP C OH D 

C A S E' i n t e g e r OF 
1: (P; RECORD 

RP; pQCrsltRc.d; 

DP: pBytes; 

1 M : integer; 

HL integc'r; 
end); 

2: (A: array Cl. 12 II of byte); 
END, 


129. VAR 

lOC-^ ocind: ()mn:iCmd; 

131 trult GCrsltRcd; 

132. strobeadv: frixRcd; 

133 readyadr; irixRcd; 

134 cmriadr VrixRcd; 

135 transrp: pGCrsltRcd; 

136. 

137 C!^P> 


(. the command record used for all commands > 


<. result pointer used for short commands > 
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138. { : > 

139. < ready - > 

140. •{ > 

141. 


142. FUNCTION ready; boolean; 

143. var i; byte; j; integer; 

144. begin 

145. j ;- 10000; 

146. repeat 

147. i ; = readyadr. PTR''-; 

148. J j-1; 

149. until (j =0) or (ODD (i>); 

150. ready ;= ODD (i); 

151. end; 

152. 

153. -C > 

154. -C unsigned - convert byte to unsigned integer ) 

155. -C > 

156. 

157. FUNCTION unsigned <b; byte); integer; 

1^58. begin 

159. if b < 0 then unsigned . == b + 256 

160. else unsigned ;- b; 

161. end; 

162. 

163. { > 

164. -C strobit - strobe command address to Transporter > 

165. -C > 

166. 

167. FUNCTION strobit; boolean; 

168. var i; integer; isready; boolean; 

169. begin 

170. i ; = 1; 

171. repeat ^ 

172. isready ;= ready; 

173. if isready then 

174. strobeadr. PTR" ;= cmdadr . ARR C i 3 ; 

175. i ; i 4- 1 

176. until (i > 3) or (NOT isready); 

177. strobit ;= isready; 

178. end; 

179. 

180. <$P> 
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181. 

182. 

183. 

184. 

185. 

186. 

187. 

188. 

189. 

190. 

191. 

192. 

193. 

194. 

195. 

196. 

197. 

198. 

199. 

200 . 
201 . 
202 . 

203. 

204. 

205. 

206. 

207. 

208. 

209. 

210 . 
211 . 
212 . 

213. 

214. 

215. 

216. 

217. 

218. 

219. 

220 . 


t y 

•C doit - "strobes in" the command and waits for the result > 

-C to change this is used for the simple commands > 

< y 


PROCEDURE doit (cmd: byte)< 

var j; integer;• 
b eg in 

OCrslt. Rcode := ORD (Waiting); 

ocmd. P. RP := ©trslt; -C must load this pointer BEFORE opcode byte > 
ocmd . ACOp ] : = cmd ; 
trs It. Rcode : = -1; 
if strobit 

then begin 

j : 10000; 

repeat 

J J - 1 

until (trslt. Rcode O -1) or (j “ 0); 

OCrslt ;= trslt; 

OCresult . =■ unsigned ( OCrs 1 1 . Rcode ) ; 
end 

else OCresult . == NoTrans; 

end; 


^ y 

■i cnvsock - convert socket number to Transporter socket number > 

{ y 


FUNCTION cnvsock (sn: integer): byte; 

begin 

case s n of 


1, 

$00 

cnvsock : = 

□RD 

($80); 

2, 

$90 

cnvs oc k : - 

ORD 

($90); 

3, 

$A0 

cnvs oc k . 

ORD 

($A0); 

4, 

$B0 

cnvsock : = 

□RD 

($B0); 

■Cotherwise 

cnvsock . = 

ORD 

( $FF ) ; 


end 

•( c a s e > 




end ; 


■C*P> 
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221 , i > 

222 . > 

222 C The following procedures construct Omninet commands and send > 

224 < them to the Tian s p or t er . > 

225 •{. } 

226, <. } 

227 

228. 

229 •<: > 

230 < OC in i t Tt'-vns - initialize Transporter and determine our host number > 

231, ■[ — > 

232. 

233 PROCEDURE OC .1 n i 1 7 r an s < 

234 hecjin doit (InitOp); end; 

235. 

236 <: > 

237 < OCwhoAm.l • fijid out what thi<i host number is > 

23S. <- > 

239. 

240 PROCEDURE GCwhoAml; 

241 beuin doit <WhnOp); end; 

242 

243 -C > 

244 < OCechoT rafts echo to specified Transporter > 

245. < > 

246. 

247 PROCEDURE OCi'choTrans <(dest: integer)}; 

248 betiin ocmd . Al'EDs 1 3 := dost; doit (EchoOp); end; 

249 

250. -{$P> 
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251. < > 

252. < OCsndMesg - send a message to another host. . . > 

253. -C > 

254. -C ASSUMPTIONS; > 

255. < - the body of the message is at the memory location > 

256. -C specified by bp. > 

257. < - the user header (if any > is at memory location > 

256. ■€ rp-t-4. (The user header is altuays immediately > 

259. < follouiing the result vectoTi ujhich is 4 bytes long. ) } 

260. < “ the result vector to be modified is at rp > 

261. < > 


262. 

263. PROCEDURE OCsndMesg <<bp; pBytesi rp. pOCrsltRcd; 

264. sni d ln> h ln> dst ; integer)!; 

265. begin 

266. OCcurBP :» bp; OCcurRP rp; 

267. uiith ocmd do begin 

268. P.f(P ;* OCcurRP; -C must l(»ad pointers BEFORE Op and Sock fields' 

269. P. DP ; * OCc urBP; 

270. ACOpn ; SendOp; 

271. ALSork.1 ;~ cnvsotk (sn); 

272. AtHLen] :« hln; 

273. P. LN ;* din; 

274. ACDestl := dst; 

275. end; 

276. OCcurRP''. Rcode ;= -1; CORD (Waiting); ! 

277. if strobit 

278. then begin 

279. repeat until OCcurRP'". Rcode <> -1; <IJRD (Waiting); ! 

280. OCresult : = unsigned (OCcurRP'". Rcude ) ; 

281. end 

282. else OCresult := NoTrans; 

283. end: 

284. 

285. <*P! 
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OCsetRecv - assembles a receive command and sends It to the 
transporter 

tuill not return until the command has been accepted. 


PRrjCEDl.!R£ DCsetRe^cv £(bp: pBytesi rp; pOCrsltRcd; 

sn^dln, hln; integer)>; 

b e (I i n 

OC ( (J r )jp ; bp; OC f.: U rRP , ; = t- p ; ; 
with <:cm<l do begin 
P DP ; ~ OCc-urllP; 

P PP : = CICt urRP/ 

1^ LN - dliw 

Ai:ap;t - okd (PecvOp); 

Ai i'jot 1(1 : = cnvs<3(;k (sn); 

Ai i il.t n J : = h In, 

DC. urPP Rcf.de « -li < QRD <Waitiny)i > 
i I t f' o bit 

then begin 

repeat until OCcurRP''*. Rcode C> — 1» -CORD (Waiting), > 
(JCresult ;= unsigned (OCcurRP'''. Rcode ) ; 

end 

else UCresi'lt NoPrans; 


reset a setup receive 


PROCEDURE GCendKecv CCsn; integer )>; 
begin 

oc<nd Al'Sock'l = cnvst.ck (sn); 
doit (EndOp); 
end i 
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325. 

326. 

327. 

328. 

329. 

330. 

331. 

332. 

333. 

334. 

335. 

336. 

337. 

338. 

339. 

340. 

341. 

342. 

343. 

344. 

345. 

346. 

347. 

348. 

349. 

350. 

351. 

352. 

353. 

354. 

355. 

356. 

357. 

358. 

359. 

360. 

361. 

362. 

363. 

364. 

365. 

366. 

367. 

368. 


{ : — , 

■C OCpeekTrans - read from the RAM inside the Transporter 
■C if OCresolt < O then the value returned is undefined 

{ 


FUNCTION OCpeekTrans -tCadr; integer); by tel i 
var x: integer; 

begin 

ujith ocmd do begin 
P. RP : = etrsit; 

Ai:Op;.l : DebOp; 

ACPePo] :« PeekOp; C peek > 

AlPAdr] . = adr D.TV 256, 

ACPAdr + .U ; adr MOD 256; 
en (1 ; 

trslt Rcode : -l, { QRD (Wailing); } 

if s t r a b i t 

then begin 

X : = 0; 

repeat x ;= x + 1 until ( tr s 1 1 . Rc od e O -1) or (x ^ 200 
t the peek value could be equal to Waiting ! ! > 

UCrslh : trslt; 

□Cresult . == unsigned ( OCr s 1 1. Rr od e ) ; 

OCpeekTrans ; GRD (OCresult); 
end 

else OCresiOt .= NolraTis; 


<. OCpokeTrans -- write into the Transp or te r ' s HAM 

^ 


PROCEIDURE OCpokeTrans {(adr; integer; va I : 
begin 

with o c m d do b r; g i n 

ACPAcIrl : adr DIV 256; 

Ai;PAflr-H: : adr MOD 256; 

ATPePol ; =•- (JRD (PokeOp); 

ALPoValJ va.l; 

e>)d ; 

doit ( DebOp ) ; 
end ; 


b y t e ) ;>• ; 


-C$P> 


•> 

) 

> 

> 
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369. ■-> 

370 < OComnlOitnit -• initialize CComnID unit > 

371. -C ^ > 


372 

373 PROCEDURE CComn lOi n i ti 

374. be (jin 

375. GCv u:-l.JP NIL; 

376. re.jdyadr LNG RdyAdr; 

377. strobi-adv. LNG := BtrAdr; 

378. ciuladr. CRT ; <«?oc«vd; 

379. transrp ;= ©OCrslt; { is this pointer necessary? > 

380 L result pointer points at OCrslt > 

381 < this procedure could also initialize the Transporter and Poke > 

382. -C the proper values for the Transporter parameters which have > 

383. -C values other than the default.. > 

384. tM-Hii 

385. 

386 END. 

38 T 
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0 

44 

65 

126 

149 

139 

00 

93 





01 

57 





02 

56 





08 

53 





1 

46 

97 

111 

117 

122 


212 

276 

279 

304 

307 

10 

54 





10000 

145 

195 




11 

99 





12 

100 

117 




2 

117 

123 

213 



20 

53 





200 

344 





255 

65 





256 

159 

337 

338 

360 

361 

3 

124 

126 

176 

2.14 


30F7F 

90 





30FA1 

91 





4 

123 

213 




40 

52 





5 

98 

101 

104 

126 


7 

102 





8 

103 





80 

36 

212 




81 

37 





82 

38 





83 

39 





84 

40 





85 

41 





86 

42 





90 

213 





A 

117 

191 

248 

270 

271 


335 

336 

337 

338 

360 

AO 

214 





ADR 

82 

83 

337 

338 

360 

ARR 

126 

174 




B 

157 

159 

160 



BO 

215 





BADDEST 

42 





BADSOCK 

40 





BP 

77 

78 

266 

295 


BYTE 

62 

63 

65 

82 

83 


209 





CO 

34 





CCDEFN 

28 





CCQMNIO 

24 





CCOMNIOINI 

76 

373 




CMD 

186 

191 




CMDACPT 

33 





CMDADR 

134 

174 

378 



CNVSOCK 

209 

212 

213 

214 

213 

CPT 

124 

378 




DEBDP 

33 

333 

363 




February 


198 343 


148 170 173 192 197 

338 340 344 361 


272 274 300 301 302 

361 362 363 

361 


117 123 126 143 137 


271 301 320 
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198 


320 


186 
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DEST 

81 

100 

248 

274 

DLN 

77 

78 

273 

299 

DOIT 

186 

234 

241 

248 

DP 

113 

269 

297 


DST 

77 

274 



ECHOED 

34 




ECHOOP 

56 

248 



EDST 

101 

2^8 



ENDOP 

54 

321 



FO 

51 




FE 

33 




FF 

32 

94 



GAVEUP 

36 




HDRERR 

39 




HL 

115 




HLEN 

99 

272 

302 


HLN 

77 

78 

272 

302 

I 

143 

147 

149 

150 

INITOP 

53 

234 



INUSE 

41 




ISREADY 

168 

172 

173 

176 

J 

143 

145 

148 

149 

LEN 

64 




LNG 

122 

376 

377 


LONG I NT 

122 




NOSOCKT 

38 




NOTRANS 

46 

202 

282 

310 

OCCURBP 

73 

266 

269 

295 

OCCURRP 

74 

266 

268 

276 

OCECHOTRAN 

81 

247 



OCENDRECV 

79 

318 



OCINITTRAN 

80 

233 



OCMD 

130 

190 

191 

248 

OCPEEKTRAN 

82 

330 

348 


OCPOKETRAN 

83 

357 



OCRESULT 

69 

200 

202 

280 

OCRSLT 

71 

189 

199 

200 

OCRSLTRCD 

60 

61 

71 

131 

OCSETRECV 

78 

292 



OCSNDMESG 

77 

263 



OCWHOAMI 

84 

240 



OKCODE 

44 




OMNICMD 

107 

109 

130 


OP 

97 

191 

270 

300 

P 

111 

190 

268 

269 

PADR 

104 

337 

338 

360 

PBYTES 

73 

77 

78 

1 13 

PEEKOP 

93 

336 



PEPO 

102 

336 

362 


POCRSLTRCD 

60 

74 

77 

78 

POKEOP 

94 

362 



POMNICMD 

107 

124 



POVAL 

103 

363 



PTR 

123 

147 

174 



February 


321 365 


168 

170 

174 

175 

176 


177 

187 

195 

197 

198 



350 

297 

279 

375 

280 

295 

298 

304 

307 

267 

296 

320 

333 

359 

378 

282 

346 

308 

347 

310 

379 

347 

348 

350 

335 

273 

361 

297 

298 

299 

334 


112 

125 

135 
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RCODE 

62 

189 

192 

190 

200 


340 

344 

347 



RDYADR 

90 

376 




READY 

142 

150 

172 



READYADR 

133 

147 

376 



RECVOP 

51 

300 




RP 

77 

78 

112 

190 

266 

RPT 

125 





SENDOP 

52 

370 




SN 

77 

78 

79 

209 

211 

SOCK 

98 

271 

301 

320 


SOURC 

63 





STRADR 

91 

377 




STROBEADR 

132 

174 

377 



STROBIT 

167 

177 

193 

277 

305 

TOOLONG 

37 





TRANSRP 

135 

379 




TRIXRCD 

120 

132 

133 

134 


TRSLT 

131 

190 

192 

198 

199 

UCDTA 

65 





UNSIGNED 

157 

159 

160 

200 

280 

VAL 

83 

363 




WAITING 

32 

1 89 




WHOOP 

57 

241 




X 

331 

343 

344 
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276 

279 

280 

304 

307 

308 

268 

295 

298 

334 



271 

301 

320 





341 

334 340 344 346 

300 347 
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1 . 

2 . 

3. 

4. 

5. 

6 . 
7. 
S. 

10 . 

11 , 

12 

13. 

14. 

15. 

16 . 
17 
18. 

19. 

20 . 
21 . 
22 . 
23. 
24 

25. 

26. 

27. 

28. 

29. 

30. 


■C CCWNDIO. TEXT 

{. 

■C CCWNDIO — Corvus CONCEPT Window Processing Unit 

•C 

C (c) Copyright 1982 by Corvus Systems^ Inc. 

< San Jose> California 

■< 

•C All Rights Reserved 

t 

< V 10 04-01-82 MB Original unit 

•t V 1. 1 10-17-82 LEF Minor revision 

C V 1. 2 12-17-82 LEF Expand window record to 48 bytes 

-C 

^ 

■<.S»R-} 

UNIT CCwndlOi 
INTERFACE 

USES C^U CCL1B> CCdefni 
CONST 

C attr2 flag values - add together > 

WfgOraf =2; -C graphics mode > 

WfgCursOn = 4; •€ cursor on > 

WfgInvCur - Bi < inverse cursor > 

WfgWrap - 16; < line wrap > 

WfgScrHff = 32; < scroll off > 

WfgClrPg = 64; -C clear page > 


> 


32, 

33. 
34 

35. 

36. 

37. 

38. 

39. 

40. 

41. 

42. 

43. 

44. 

45. 

46. 

47. 

48. 

49. 
50 

51. 

52. 


r, values of wn for WinSystem > 

WsysCurr =1; { current process window > 
WsysCmd =2; i. c;md/msg window > 
WsysRoot =3; T root user window > 


TYPE 

pCharSet = ''CharSet; 

CharSet = record 
•Clength offset> 

•C 4 O > tblloc; pBytes; 

< 2 4 > Ipch: integer; 

•C 2 6 > bpch: integer; 

< 2 8 > frstch: integer; 

< 2 10 > lastch: integer; 

•C 4 12 > mask: longint; 

•C 1 16 > attrl: byte; 

■C 1 17 > attr2: byte; 

■C total 18 > end; 


Ccharacter set data pointer> 
•Cscanlines per character (assume wid! 
•Cbits per character (vertical height! 
Cfirst character code - ascii> 

■Clast character code - ascii> 

■Cmask used in positioning cells> 
<attributes> 

■C bit 0=1- vertical orientation} 
^currently unused> 


■C*P} 
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53. 


p Wn (1 R c (J 


= -WndRcd; 



54. 


WndRf. tf 


•“ r e r: 0 r 

r . 



55. 

■C 1 e n g t ft 

0 f f 5 o t } 





56. 

< 

4 

(> 

> 

f : h a r p t 

pCharSet 

-(character set record pointer> 

57 

< 

4 

4 

.> 

homep t 

p 8 y t e s ; 

•Chofne (upper left) pointer> 

58 

-f 

4 

0 

> 

f. uradr 

pBy tes i 

{current location pointer} 

so 

< 

2 

12 

> 

h 0 m e 0 f 

integer; 

{bit offset of home location} 

60 

■c 

2 

14 

> 

base X : 

integer; 

{home X valuei rel to root uiindouj} 

61 . 

i 

2 

16 

> 

ba sey : 

integer; 

{home y value, rel to root window} 

62. 

< 

2 

18 

3 

1 n g t h X 

integer; 

{maximum x value, bits rel to window} 

6 3 . 

< 

2 

20 

> 

1 n g t h y 

integer; 

{maximum y value, bits rel to window} 

64. 

< 

2 

21.' 

> 

f ■ u r s X ; 

integer; 

{current x value, bits rel to window} 

65. 

< 

2 

24 

;> 

t u r s y : 

integer; 

{current y value, bits rel to window} 

66 

i 

2 

26 

.> 

b i 1 0 f s 

integer; 

{bit offset of current address} 

6 7 

< 


.28 

> 

gr org x 

integer; 

{graphics - origin x, bits rel to ho' 

68. 

< 

2 

30 

> 

grorgy : 

integer; 

{graphics -- origin y, bits rel to ho! 

69 


1 

32 

> 

a 1 1 r 1 : 

byte 


(inverse, underscore, insert} 

70 


1 

33 

> 

attr2: 

byte 


{v/h, graph ics/char, cursor on/off, 

71 








cursor inv/underline} 

72 

< 

1 

34 

> 

state; 

byte 


{used for decoding escape sequences} 

■'3 

< 

1 

3 b 

> 

r c d 1 e n : 

byte 


{window description record length} 

74 

'■ 

1 

36 

} 

attr3: 

byte 


{enhanced character set attributes} 

75 

{ 

i 

37 

> 

f ■ i 1 1 1 . 

byte 


{currently unused} 

76 . 

•t 

1 

38 

> 

f i 1 1 2 : 

byte 


{currently unused} 

77 


1 

39 

> 

f i 1 13: 

byte 


{currently unused} 

78 

i 

4 

40 

> 

f 1 1 14; 

1 ong in t; 

{currently unused} 

7C 

c 

4 

44 

> 

•ju'Uisp tr : 

pBy tes; 

{window working storage pointer} 

80 

i 

total 

48 

1 

en d ; 





81 

8.-^; 


83 

PROCEDURE 

CCwnd 1 0 1 ji i t i 




84 

FUNCTIQM 

WinSy stem 

{ 

wn; 

integer); 

integer; 

85 

FUNCTION 

WinSe 1 ec t 

( var 

WR: 

WndRcd ) : 

integer; 

86 

FUNCTION 

WinDelete 

( var 

WR; 

WndRcd); 

integer; 

87 

86 

FUNCTION 

WinCr eate 

( var 

WR: WndRcd; homex, homey, 

width, Ingth, flags: integer): 

integer; 

89. 

FUNCTION 

Ui nC 1 ear 

( var 

WR: 

WndRcd) : 

integer; 

90 

91. 

FUNCTION 

WiiiStatus 

{ var 

h ome 

C U T' X 

X, homey, width, Ingth, 
, c u r y : integer): 

integer; 

<■^2 

93 

94. 

FUNCTION 

{$P> 

WinLoadCh 

( 

name 

s tr i nqSO ) . 

integer; 
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IMPLEMENTATION 


FUNCTION OSdispDv: integer; 

FUNCTION pOScurWnd; pWndRcd; 
FUNCTION pOSsysWnd (wndnbr; 


{ WinSystem 

< Select system window 

•C 0 = rooti 1 = current process window; 


FUNCTION WinSystem; { (wn integer) > 

var iost; integer; nilptr.wptr: pNndKcd; 

begin 

ni Iptr ; == ni ] ; 

if wn ~ O then wn ; = 3; 

if wn - 1 

then begin 

UnitStatus ( d i sp lay ; n i 1 p tr ', SELECT ) ; iost 
else if wn in 12 . . MAXWINDOWl then begin 
wptr ;= pOSsysWnd (wn); 
if wptr = nil 

then iost := lOFwndwn 
else begin 

Un i tStatus (display; wp tr'" ; SELECT ) ; 
iost . = lORfcSULT; end; 

en d 

else iost lUEwndwn; 

WinSystem ;= iost; 
end ; 


{ WinSelect 

f 


FUNCTION WinSelect; -C(var WR: WndRcd)> 

begin UnitStatus ( d isp lay ; WR; SELECT ) ; WinSelect 
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145. < WiriDelete — ^ > 

146. { > 

147. 

148. FUNCTION WinDelete; C(var WR. WndRcd)> 

149. begin UnitStatu«: ( d i sp lay , WR, DELETE ) ; WinDelete lOPESULT; end, 
150 

151. 

152. < WxnCreate ‘ > 

154. 

155. FUNCTK3N WinC^reate; K s'ar WR; WndRcd, h ofne x , h Ofn(?y , 

156. U(i ;i th , Iny th, f i ag s integer) integer. > 

157. var CWfitr: pWndKcd; 

158. begin 

159. CWptr pOBfurWndi 

160. WR basex ; ® homex; WR, bauey ; Ijomeyj 

161. WR Ingthx -width; WR. Ingtby Jngth; 

162. WR. attrl : CWptr attrl mod 2; 

163. < WR. ,jttv2 wou > 

164. WR. attr2 : = <f:i.ag?-j AND 3^7E ) ( CWp tr ■■. a 1 1 r2 AND i|;Oi?j 

165. WR i.barpt CWptr ' charpt; 

166. .UnitStatuu ((Jispiai.ir WR, CREATE); 

167. WinCreate - rOREGULT; 

168. end; 

169. 

173, 

174, FUNCTION W i nBtaturi , I<vai‘ h ome x , b (i.T)ey , w;i d t h , 1 ng th . c ur x , c urg . integer:-.; 

175 var iott; integer; 

176. WS: record .xhorne. yhome, xlen.yJen: integer; e?id; 

177 w:- array l-'O .13 of integer; 

178. begin 

1 7 9 . Un i t S t a t u s ( d x s p I a y , WS , STATUS ) ; 

180. lost : lORESULT; 

181. if iost == O then begin 

182. homex ; ~ WS xhonn?; homey := WS. ghome; 

183. width := WS. xl(?n, Ingth : ~ WS. ylen; 

184. Un i t B t a t u «; ( d i s p 1 a y , WC , SENSi: ) , 

185. lost ; I(.)RESUL'I .- 

186. if lost = O then begin 

187. curx ; - WCt0;i, cury . - WCLi:!, 

188. end; 

189. end; 

190. WinStalus := ioi.t; 

191. end; 

192. 

193. -CfFT 
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194 . 

195 . 

196 . 
197 

198 . 

199 . 

200 . 
201 
202 . 
203. 

204 

205 


20 7. 
20 S. 


2 1 0 
211. 


213 

214 

215 . 

216, 
217. 
21 8 
219. 
2.20 
221 . 
222 . 

223. 

224. 

225. 

226. 
227, 


< WinCJear > 

FUNCTinN WinCleari iAvar WR: WndR(.d)> 

begirt UnitStatus ( d i sp lay • UIH/ CLEAR ) i WinClear := lORESULTi end; 


< Winl.uitdCh > 

FUNCTION Winl..oa(lCh; <(name; stringSO); integer;} 
type sti-64 = str ing t64!l; 
pstr64 •••■at I -64; 

‘itrtbi - array 1.1. lOOD of pstr64; 
pstrtbl = •"•strtbl; 
var '.'esu-lt: integc-r; 

sJ.a2. ;itr64; pl.p2: pstr64; p; pstrtitl; 

I) e g i n 

p ■= Op 1 pi . = esl; p2 : =-• («’52; 
il . - CJ-3DISL'; s2 ; = name; 

Wini.oadCh : * call ( ' ' CC . WNDMGR ' , inp U't , ou tp u t # p •"•i 2 ) ; 
end/ 


■I CCwntJIQxnii > 

< Unit i n :i 1 1 a 1 i X a t ,1 o n 

^ y 

PROCEDURE C C u'f I d 3 Q i n i t ; 

begin display : - OtidiupDv; end; 

END. i Unit CCui.ndIO > 
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0 

98 

121 

177 

181 

01 

164 




1 

33 

99 

122 

177 

100 

207 




16 

28 




2 

25 

34 

100 

125 

3 

35 

101 

121 


32 

29 




4 

26 

102 



5 

103 




64 

30 

205 



7E 

164 




8 

27 




ATTRl 

47 

69 

162 


ATTR2 

49 

70 

164 


ATTR3 

74 




BASEX 

60 

J60 



BASEY 

61 

160 



BITOFS 

66 




BPCH 

43 




BYTE 

47 

49 

69 

70 

CALL 

214 




CCDEFN 

21 




CCWNDIO 

17 




CCWNDIOINI 

83 

222 



CHARPT 

56 

165 



CHARSET 

38 

39 



CLEAR 

102 

198 



CREATE 

99 

166 



CURADR 

58 




CURSX 

64 




CURSY 

65 




CURX 

91 

187 



CURY 

91 

187 



CWPTR 

157 

159 

162 

164 

DISPLAY 

105 

124 

130 

142 

FILLl 

75 




FILL2 

76 




FILL3 

77 




FILL4 

78 




FLAGS 

88 

164 



FRSTCH 

44 




GRORGX 

67 




GRORGY 

68 




HOMEOF 

59 




HOMEPT 

57 




HOMEX 

87 

90 

160 

182 

HOMEY 

87 

90 

160 

182 

lOEWNDWN 

128 

133 



lOST 

118 

124 

128 

131 


190 




LASTCH 

45 




LNGTH 

88 

90 

161 

183 

LNGTHX 

62 

161 




186 187 

187 r-?07 

162 214 


72 73 74 75 76 77 


165 

149 166 179 184 198 223 


133 134 175 180 181 185 
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LNGTHY 

63 

161 



LONGINT 

46 

78 



LPCH 

^2 




MASK 

46 




MAX WINDOW 

125 




NAME 

92 

213 



NILPTR 

1 18 

120 

124 


OSD ISP DV 

107 

223 



P 

210 

212 

214 


PI 

210 

212 



P2 

210 

212 



PBYTES 

4 1 

57 

58 

79 

PCHARSEr 

38 

56 



POSCURWND 

108 

1 59 



POSSYSWND 

.1 09 

1 26 



PSTR64 

;.'06 

207 

210 


PSTRTBL 

. 08 

210 



PWNDRCD 

53 

1 08 

109 

1 18 

RCDL.EN 

73 




RESULT 

209 




SI 

2 1 0 

212 

r> 1 3 


S2 

2' 10 

212 

2 1 3 


SELECT 

101 

1 24 

130 

142 

SENSE 

98 

184 



STATE 

72 




STATUS 

103 

1 79 



STR64 

205 

206 

210 


STRING 

I'05 




STRING80 

92 




STRTBL 

207 

208 



TBLLOC 

41 




WC 

177 

I 84 

187 


WFGCLRPG 

30 




WFGCURSON 

26 




WFGGRAF 

25 




WFGINVCUR 

27 




WFGSCROFF 

29 




WFGWRAP 

28 




WIDTH 

88 

90 

161 

3 83 

WINCLEAR 

89 

197 

198 


W INC RE ATE 

87 

1 55 

1 67 


W INDELETE 

86 

1 48 

1 49 


WINLOADCH 

92 

204 

214 


W INSELECT 

85 

141 

142 


WINSTATUS 

90 

174 

190 


WINSYSTEM 

84 

117 

134 


WN 

84 

121 

122 

125 

WNDNBR 

io‘--’ 




WNDRCD 

5j 

54 

85 

86 

WPTR 

118 

1 26 

127 

130 

WR 

85 

86 

87 

89 


166 

198 



W>3 

176 

1 79 

182 

183 

WSYSCMD 

34 
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WSYSCURR 

33 


WSYSROOT 

35 


WWSPTR 

79 


XHOME 

176 

182 

XLEN 

176 

183 

YHOME 

176 

182 

YLEN 

176 

183 
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1. < TURTLE. TEXT > 

2 . < 


3 < TURTLE -- Corvus CONCEPT Turt leGraph ics Unit 

4. < 

5. < (c) Copyright 1982 Corvus Systems* Inc. 

6. < San Jose* California 

7. -C 

8. < All Rights Reserved 

9. -C 

10. < V 1.0 09-17-82 LEF Original unit 

11. -C 

12. -C > 

13. -C*R-> 

14 

15. UNIT TurtleOraphicsi 

16. 

17. INTERFACE 

18. 

19. CONST 

20. TurtleVersion = '1.0'j 

21 . 

22. TYPE 

23. ScreenColor = ( none* uihite* black* reverse* radar* blacfcl* green* 

24. violet* whitel* black2* orange* blue* uhite2 )* 

25. 

26. PROCEDURE InitTurtle; 

27. PROCEDURE Ora f Mode* 

28. PROCEDURE TextModei 

29. PROCEDURE Viewport < left* right* bottom* top : integer)* 

30. PROCEDURE PeriColor (c: ScreenColor)*- 

31. PROCEDURE FillScreen (c: ScreenColor); 

32. PROCEDURE Turn (degrees: integer)* 

33. PROCEDURE TurnTo (degrees: integer)* 

34. PROCEDURE Move (dist: integer); 

35. PROCEDURE MoveTo (nxtX*nxtY: integer); 

36. FUNCTION TurtleX: integer; 

37. FUNCTION TurtleY: integer; 

38. FUNCTION TurtleAng: integer; 

39. FUNCTION ScreenBit: boolean; 

40. 

41. 

42. IMPLEMENTATION 

43. 

44. -C*P> 
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45. CONST 

46. esc = $1B; 

47. 

48. GrfMuihite = 1 ; -C mode values > 

49. UrfMblack = O; 

50. OrfMflip = -1; 

51. 

52. OrfQgrRel = li < tlual values > 

53. GrfQgrAbs = P.i 

54. GrfGchRel = 3; 

55. GrfOcbAbs * 4; 

56. 

57. TYPE 

58. graphbuffer = record case integer of 

59. O: <pi: array Cl. . 101 of integer); 

60. 1: <pb: array Cl.. 201 of -128. .127); 

61. end; 

62. 

63. VAR 

64. curColor: ScreenColor; < current pen color > 

65. curX/ curY; integer; -C current turtle x» y > 

66. curAng; integer; -C current turtle angle > 

67. vpXl/ vpYl: integer; -C viewport left; bottom > 

68. vpX2; vpY2: integer; -C viewport right# top > 

69. display: integer; < display unit number > 

70. buf: graphbuffer; { display command buffer > 


71. 

72. 

73. { SetOrigin > 

74. < Set graphics origin 

75. { . > 

76. 


77. PROCEDURE SetOrigin <x,y: integer); 

78. begin 

79. with buf do begin 

80. pbCll := esc# pbC21 := ord('o'); 

81. piC23:«x; piC31:=y; 

82. pbr.73 2; 

83. unitwrite (display# buf# 7); < set graphics origin > 

84. end; 

85. end; 

86 . 

87. {$P> 
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89. 

90. 

91. 

92. 

93. 

94. 


< DraujLine 
C 


PROCEDURE DraufLine ( x li y li x2i y2: integer); 

var mode: integer; exchange: boolean; 


procedure clip (rj s: real; var nx/ny: integer); 


95. 


var rs: real; 


96. 


begin rs : =» r+s; 


97. 


nx := round ( (r*x2 + s*xl) / 

rs ) ; 

98. 


ny :* round ( <r*y2 + s*yl) / 

rs); 

99. 


end ; 


100. 




101. 

procedure flip; 


102. 


var t: integer; 


103. 


beg in 


104. 


t:=xl; xl:®x2; x2;-t; 


105. 


t :=-yl; yl :*y2; y2:===t; 


106. 


exchange : » not exchange; 


107. 


end; 


108. 




109. 

beg 

in 


110. 

if 

curColor = none then exit (DrauiLine); 

111. 

exc 

hange := FALSE; 


112. 

if 

x2 < xl then flip; 


113. 

if 

x2 < vpXl then exit (DrauLine) 


114. 


else if xl C vpXl then clip (vpXl-xli x2-vpXl» xl. y 1 

115. 

if 

xl > vpX2 then exit (DrawLine) 


116. 


else if x2 > vpX2 then clip ( vp X2-x 1 . x2-vp X2, x2, y2 

117. 

if 

y2 < yl then flip; 


118. 

if 

y2 < vpYl then exit (DrauiLine) 


119. 


else if yl < vpYl then clip ( 

vpYl-yl. y2-vpYl.. xl. yl 

120. 

if 

yl > vpY2 then exit (DrauiLine) 


121. 


else if y2 > vpY2 then clip ( 

vpY2-yl. y2-vpY2. x2. y2 

122. 

if 

exchange then flip; 


123. 

case curColor of 


124. 


uihite. uihltel. uihite2 

mode := Orffiuihite; 

125. 


green, violet, orange, blue: 

mode : = GrfMf lip; 

126. 


black, blackl. black2 

mode := Grfliblack; 

127. 


end; Cease curColor of> 


128. 

uii th buf do beg in 


129 


pbtl3 := esc; pbC23 := ord(^ 

1 '); 

130. 


pit23 : = xl; piC33 : = yl; 


131. 


piC43 : = x2; pi[.5] : = y2; 


132. 


pbClH : = mode; 


133. 


unituirite (display.buf.il); 


134. 


end; 



135. 

136. 

137. 


> 

> 
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138 < GrafMode ^ > 

139 i Switch to (graphics mode 

140. -C + > 

141. 

142. PROCEDURE GrafMode; begin end; 

143. 

144 

145. < TextMode -i > 

148 <■ Switch to text mode 

3 47 _l > 

148. 

149, PROCEDURE TextMode; begin end; 

1 50, 

151. 

152. < V.iewPori -f — > 

153. < r > 

154 


155. PROCEDURE VjiewP or t { ( 1 e f t . r i gh t , b ot tomi t op : integer)>; 

156. begin 

157. if (Ijeft < right) and (bottom < top) then begin 

158. v|jX 1 .= left; vpYl ;= bottom; 

159 vpX2 ;= right; vpY2 ;= top; 

160, ejnd; 

161, end; 

162, 

163, 

164, < PenColor > 

165, C Set pen color 

166, -C i > 

167 

168 PROCEDURE ffenColor -C ( c : Scr eenCo 1 or ) >; 

169, begin 

170, tase c of 


171. 

reverse : 

case curColor of 



172. 


white: 

curColor 

: = 

black; 

173. 


black: 

curColor 

: = 

white; 

174 


b lac k 1 : 

c urCo 1 or 

: = 

whitel 

175. 


green: 

curColor 

: = 

violet 

176. 


violet: 

curColor 

: = 

green; 

177. 


whitel : 

curColor 

: = 

b lac k 1 

178. 


black2: 

c urCo 1 or 

: = 

wh i te2 

179. 


orange: 

curColor 

; = 

blue; 

180 


blue: 

curColor 

: = 

orange; 

181. 


wh i te2: 

curColor 

: * 

black2; 

182. 


end; 

tease curColor of> 

183. 

radar ; 

; 




184. 

oltherwise: 

curColor : = 

c; 



185. 

end ; 

•Cease c of> 





186. end; 

187. 

188. -f^PX 
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189. < FillScroen > 

190. < Fill entire viewport with specified color 

191. < ^ > 


192. 

193. PROCEDURE FillScreen -C(c: ScreenColor ) >> 


194. 

var density; integer; 




195. 

begin 




196. 

density ;= 0; 




197. 

if r = reverse 




198. 

then begin 




199. 

case curColor of 




200. 

white# whitel 

wh i te2 

density : = 

0; 

201. 

green# violet 


density : = 

2; 

202. 

orange# blue 


density : = 

3; 

203. 

black# b lac k 1 

blat;k2 

dens i ty ; = 

1; 

204. 

end; Cease curColor of} 


205. 

end 




206. 

else begin 




207. 

case c of 




208. 

white# whitel 

white2 

density : = 

1# 

209. 

green# violet 


density ; = 

3; 

210. 

orange# blue 


density : = 

2; 

211. 

black, blackl 

black2 

density : - 

0; 

212. 

end; Cease c 

of} 



213. 

end ; 




214. 

w i t h buf do begin 




215. 

pbll] ;= esc; 

pbC23 

ord( 'f ' ); 


216. 

pit23 ; = vpXl; 

piC33 : == 

vpYl; 


217. 

pit43 ; == vpY2-vpYl + l; 

piC53 ; ~ 

vpX2-vpXl+l# 


218. 

pbtll3 ; density; 




219. 

unitwrite (display# buf # 11 ); 



220. 

end ; 





221. end; 

222 . 

223. 


224. -C Turn > 

225. < Turn turtle specified degrees (relative to current angle) 

226. -C > 


227. 

228. PROCEDURE Turn -((degrees: integer)}; 

229. begin 

230. curAng :® (curAng + degrees) mod 360; 

231. if curAng C O then curAng := curAng + 360; 

232. end; 

233. 

234. 

235. -C TurnTo > 

236. < Turn turtle to specified angle (absolute) 

237. -C > 

238. 

239. PROCEDURE TurnTo {(degrees: integer)}; 

240. begin curAng := 0; Turn (degrees); end; 

241. 

242. -C*P} 



VSIXRF — Crons f^efc^rence Listing February 1/ 1983 

File ID. TURTL.E. 1£X1 Page 6 


243. -t Move > 

244. { Move turtle for specified distance 


246 

247 PROCEDURE Move -t(dist: ii»teger)>; 

24S. var nxtXj nxtY; integeri curRad: reali 


249. I»egiri 

250 rurRad := curAnn * 3.1415927 / 180. Oi 

251. nxtX ; curX + round (dist * cos (curRad) )i 

252 nxtY •- ci.irY round (dist * sin (curRad)); 

253. drawl ine ( c ur X / c urY# nx tX» n x tY ) ; 

254. ( urX ■ nxtX; curY ;= nxtY; 

255. <Tidi 

256. 

257. 

25S. < MoveTo > 

259. < Move turtle to specified location (absolute) 

260. < } 

261. 


262 PROCEDURE MoveTo -C ( n x tXi n x tY: integer)}; 

263. bey:ln 

264. (Iratuline (curX# curYi nxtXi nxtY); 

265. ( urX : nxtXj curY := nxtY; 

266. ('fnJ; 

267. 

268. 

269. < TurtleX > 

270. f Return current turtle X coordinate 

271. <: } 

272. 

273 FUNCTION TurtleX -C: integer}; 

274. begin TurtleX curX; end; 

275. 

276. 

277. i TurtleY } 

278. •( Return current turtle Y coordinate 

279. -C } 

280 

281. FUNCTION TurtleY <: integer}; 

282. begin TurtleY := curY; end; 

283. 

284. 

285. -C TurtleAng •} 

286. < Return current turtle angle 

287. < } 

288. 

289. FUNCTION TurtleAng -t ; integer}; 

290. begin TurtleAng :* curAng; end; 

291. 
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293. -C ScreenBit > 

294. -C Return status of screen bit 

295. < > 

296. 


297. FUNCTION ScreenBit -C: boolean>; 

298. const RDBYTES = 7; 

299. type bytes = array CO. . 13 of -128. . 127i 

300. var wbuf: record bent; integer; bptr: ''•bytes; end; 

301. b; bytes; 

302. begin 

303. ScreenBit := FALSE; 

304. wbuf. bent := 1; ubuf.bptr := Qb; 

305. luith buf do begin 

306. SetQrigin (corXiCurY); -C set graphics origin > 

307. unitstatus ( d isp lay < wbuf< RDBYTES) ; -C get byte from screen } 

308. if bC03 < 0 then ScreenBit := TRUE; 

309. SetOrigin (0*0); -t set graphics origin > 

310. end; 

311. end; 

312. 

313. 

314. < InitTurtle > 

315. < TurtleGraph ics unit in i t ial i za t i on 

316. -C > 

317. 

318; PROCEDURE InitTurtle; 

319. var ws; record xhome* yhome» x len» y len: integer; end; 

320. begin 

321. display ;= 1; 

322. with buf do begin 

323. pbCl3 := esc; pbC23 := ord('J'); 

324. unitwrite ( d isp lay . buf » 2) ; i clear screen > 

325. pbcn := esc; pbC23 := ord<'g'); 

326. unitwrite <d isp lay » buf < 2) ; { set graphics mode >, 

327. SetOrigin (0,0); 

328. Unitstatus ( d isp lay, ws, 5) ; i get window size > 

329. pbtn ;= esc; pbC23 ;= ord('t'); 

330. unitwrite ( d isp lay , buf , 2) ; -C set text mode > 

331. end; 

332. curAng ; = 0; < set initial angle > 

333. curColor := none; -C set initial pen color } 

334. vpXl ; “ 0; vpX2 := ws. xlen; < set view port left, right > 

335. vpYl : O; vpY2 := ws. y len, <. set view port bottom, top > 

336. curX := vpX2 div 2; < set initial X > 

337. curY := vpY2 div 2; < set initial Y } 

338. end; 

339. 

340. end. 
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0 

49 

59 

196 

200 

211 


327 

332 

334 

335 


1 

48 

50 

52 

59 

60 


299 

304 

321 

323 

325 

10 

59 





11 

132 

133 

218 

219 


127 

60 

299 




128 

60 

299 




1415927 

250 





180 

250 





IB 

46 





2 

53 

80 

81 

82 

129 


324 

325 

326 

329 

330 

20 

60 





3 

54 

81 

130 

202 

209 

360 

230 

231 




4 

55 

131 

217 



5 

131 

217 

328 



7 

82 

83 

298 



B 

301 

304 

308 



BCINIT 

300 

304 




BLACK 

23 

126 

172 

173 

203 

BLACK 1 

23 

126 

174 

177 

203 

BLACK2 

24 

126 

178 

181 

203 

BLUE 

24 

125 

179 

180 

202 

BOTTOM 

29 

157 

158 



BPTR 

300 

304 




BUF 

70 

79 

83 

128 

133 


330 





BYTES 

299 

300 

301 



C 

30 

31 

170 

184 

197 

CLIP 

94 

114 

116 

119 

121 

CURANG 

66 

230 

231 

240 

250 

CURCOLOR 

64 

110 

123 

171 

172 


179 

180 

181 

184 

199 

CURRAD 

248 

250 

251 

252 


CURX 

65 

251 

253 

254 

264 

CURY 

65 

252 

253 

254 

264 

DEGREES 

32 

33 

230 

240 


DENSITY 

194 

196 

200 

201 

202 

DISPLAY 

69 

83 

133 

219 

307 

DIST 

34 

251 

252 



DRAWLINE 

91 

no 

113 

115 

118 

ESC 

46 

80 

129 

215 

.323 

EXCHANGE 

92 

106 

111 

122 


FILLSCREEN 

31 

193 




FLIP 

101 

112 

117 

122 


GRAFMODE 

27 

142 




GRAPHBUFFE 

58 

70 




GREEN 

23 

125 

175 

176 

201 

GRFMBLACK 

49 

126 




GRFMFLIP 

50 

125 




GRFMWHITE 

48 

124 




GRFQCHABS 

55 
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231 

240 

250 

299 

308 

309 

80 

329 

129 

203 

208 

215 

217 


130 201 210 215 216 323 

336 337 

216 250 


211 

211 

211 

210 


214 

219 

305 

322 

324 

326 

207 






290 

173 

333 

332 

174 

175 

176 

177 

178 

265 

265 

274 

282 

306 

306 

336 

337 



203 

321 

208 

324 

209 

326 

210 

328 

211 

330 

218 

120 

325 

253 

329 

264 





209 
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File ID: TURTLE. TEXT 






GRFQCHREL 

54 







ORFQORABS 

53 







GRFQGRREL 

52 







INITTURTLE 

26 

318 






LEFT 

29 

157 

158 





MODE 

92 

124 

129 

126 

132 



MOVE 

34 

247 






MOVETO 

39 

262 






NONE 

23 

no 

333 





NX 

94 

97 






NXTX 

39 

248 

251 

293 

254 

264 

265 

NXTY 

39 

248 

252 

253 

294 

264 

265 

NY 

94 

98 






ORANGE 

24 

129 

179 

180 

202 

210 


OTHERWISE 

184 







PB 

60 

80 

82 

129 

132 

219 

218 

PENCOLOR 

30 

168 






PI 

59 

81 

130 

131 

216 

217 


R 

94 

96 

97 

98 




RADAR 

23 

183 






RDBYTES 

298 

307 






REVERSE 

23 

171 

197 





RIGHT 

29 

157 

159 





RS 

99 

96 

97 

98 




S 

94 

96 

97 

98 




SCREENS IT 

39 

297 

303 

308 




SCREENCOLO 

23 

30 

31 

64 




SETORIGIN 

77 

306 

309 

327 




T 

i02 

104 

109 





TEXTMODE 

28 

149 






TOP 

29 

157 

159 





TURN 

32 

228 

240 





TURNTO 

33 

239 






TURTLEANG 

38 

289 

290 





TURTLEGRAP 

15 







TURTLEVERS 

20 







TURTLEX 

36 

273 

274 





TURTLE Y 

37 

281 

282 





VIEWPORT 

29 

159 






VIOLET 

24 

129 

179 

176 

201 

209 


VPXl 

67 

113 

114 

158 

216 

217 

334 

VPX2 

68 

115 

116 

159 

217 

334 

336 

VPYl 

67 

118 

119 

158 

216 

217 

335 

VPY2 

68 

120 

121 

159 

217 

339 

337 

WBUF 

300 

304 

307 





WHITE 

23 

124 

172 

173 

200 

208 


WHITEl 

24 

124 

174 

177 

200 

208 


WHITE2 

24 

124 

178 

181 

200 

208 


WS 

319 

328 

334 

339 




X 

77 

81 






XI 

91 

97 

104 

112 

114 

119 

116 

X2 

91 

97 

104 

112 

113 

114 

116 

XHOME 

319 







XLEN 

319 

334 







323 


119 

121 


February 


329 329 


130 

131 
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V 7 7 01 

VI 91 98 105 114 117 119 120 121 130 

v2 91 98 105 116 117 118 119 121 131 

YHOME :LI.9 

VLEN ;M.9 335 
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February 1/ 1983 

Pcige 1 


1. -C FCLKIO TEXT 

2 < 

3 . -C FCLKIO Corvus CONCEPT FORTRAN Clock Processing Unit 

4. T 

5. -C (t) Copyright 1902 Corvus Oystefns. Int:. 

6 . < Han Jose. California 

7. <: 

6 . < All Rights Reserved 

9. -C 

10. -C V l.C.) 10-22-82 LEF Original unit 

1 1. -C 

12 . <: : 

13. -C^R-} 

14. 

15. UNIT Fi lklGi 

16. 

17. INTERFACE 
18 


19. 

USES C15U CCLIB) CC(. IklQi 




20. 







21. 

PROCEDURE 

Cl k Int 





22. 

PROCEDURE 

CikRd 

(var CPII: ClkPB 

) ; 



23. 

PROCEDURE 

ClkWr 

(var CPU: ClkPB 

) ; 



24. 

PROCEDURE 

ClkDaij 

(var DateStT : C 

IkStrAO 

In 

integer) 

25. 

PROCEDURE 

ClkDtl 

(var DateStr: C 

lkStr40 

In 

integer) 

26. 

PROCEDURE 

ClkDt2 

(var DateStr-; C 

IkStrAO 

In 

integer) 

27. 

PROCEDURE 

ClkDt3 

(var DateStr: C 

lkStr40 

1 n 

integer) 

28. 

PROCEDURE 

ClkTml 

(var DateStr: C 

lkStr40 

1 n 

integer) 

29 

PROCEDURE 

C 1 k Tm2 

(var DateStr; C 

1 kStr40 

In 

integer) 

30 







31. 

IMPLEMENTATION 





32. 







33. 

PROCEDURE 

Clk Int 

1 beg:in CCclklOi 

nit; end/ 


34. 

PROCEDURE 

CikRd; 

begin Clk Read 

(CPB ) ; 

»nd ; 


35. 

PROCEDURE 

ClkWr; 

begin ClkWrite 

(CPB); 

end 


36. 

PROCEDURE 

C 1 k Day 

begin (^IkWeekDay (DateStr 

) i end ; 

37. 

PROCEDURE 

ClkDtl 

begin ClkDatel 

(DateStr ) ; 

end ; 

38. 

PROCEDURE 

ClkDt2 

begin ClkDate2 

(DateStr ) ; 

end; 

39. 

PROCEDURE 

ClkDt3 

begin ClkDate3 

(DateStr ) ; 

end i 

40. 

PROCEDURE 

ClkTml 

begin ClkTimel 

(DateStr ) i 

end; 

41. 

PROCEDURE 

C 1 k Tm2 

begin ClkTime2 

(DateStr); 

errd; 


42. 

43. END. 

44. 
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CCCLKIO 19 

CCCLKIOIMI 33 

CLKDATEl 37 

CLKDATE2 38 

CLKDATE3 39 

CLKDAY 24 36 

CLKDTl 25 37 

CLKDT2 26 38 

CLKDT3 27 39 

CLKINT 21 33 

CLKPB 22 23 

CLKRD 22 34 

CLKREAD 34 

CLKSTR40 24 25 26 27 28 29 

CLKTIMEl AO 

CLKTIME2 41 

CLKTMl 28 40 

CLKTM2 29 41 

CLKWEEKDAY 36 

CLKWR 23 35 

CLKWRITE 35 

CPB 22 23 34 35 

DATESTR 24 25 26 27 28 29 36 37 38 39 40 

41 

FCLKIO 15 
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1. -C FCRTIO. TEXT 

2 . 

3. C FCRTJn — Corvus CONCEPT FORTRAN CRT Control Unit 

4 < 

5 T ( (. > Copyright 1982 Corvus 5ystems< Inc. 

6 < San Jose> California 

7 <: 

8 T A) ;i Rights Reserved 

9. < 

10 C V 1.0 10-20-82 LEF Original unit 

11 . T 

12 T 

13. tfR-,)- 

14. 

1’5. UNIT Frrtin, 

16, 

17. INTERFACE 

18. 

19 USES C$U CCI...T.D)- CCdefn, CCcrtlOi 

20 . 

21. TYPE CrtArrQO = packed array Cl.. 803 of char; 

22 


23. 

PROCEDURE 

Cr ilnt, 






24. 

PROCEDURE 

GaXY 

( var 

X' y 

Long Int ) ; 



25 

PROCEDURE 

C r lAc t 

( var 

cmd 

1 ong Int ) ; 



26. 

PROCEDURE 

CrtTtl 

(var 

t X t 

CrtArrSO; In; 

integer > ; 


27. 

PROCEDURE 

Cr tPmt 

( var 

txt 

CrtArrBO; Inl; 

integer; 


28. 



var 

opt 

CrtArrBO; ln2; 

integer ) ; 


29 

PROCEDURE 

CriPau 

( var 

ch : 

char ) ; 



30. 

FUNCTION 

U case 

(var 

c h : 

c har ) ; 


char; 

31 

FUNCTION 

Getl 

( var 

num: 

integer ) ; 


CrtStatusi 

32. 

FUNCTION 

GetLl 

(var 

num: 

Longlnt ) : 


Cr tStatusi 

33. 

FUNCTION 

GelSt 

( var 

buf : 

CrtArrBO; In; 

integer ) : 

CrtStatusi 

34. 

FUNCTION 

GeiB. 





char; 

35. 

FUNCTION 

T one 

( var 

timbre# duration# period. Longlnt): 

Longlnt; 


36. 

37. 

38 IMPLEMENTATION 
39. 

40 PROCEDURE MakeString (a: CrtArrSO; In; integer; var s: stringBO); 

41. vav i. integer; 

42. begin 

43. s :••= "; 

44 for i 1 to In do begin 

45. s : - concat (si ' sClength(s)3 : = aCi3; end; 

46. end; 

47 

48. C^PT 
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49. PROCEDURE Crtint; 

50. begin CCcrtlOiniti end; 

51. 

52. PROCEDURE OoXY; 

53 begin GoToXY ( or d ( x ) » ord ( y ) ) ; end; 

54 

55. PROCEDURE CrtAct; 

56. var CC: record case integer of 

57. 1: (li: Longint); 

58. 2; (fl: array CO. . 33 of -128. . 127; 

59 cmd. CrtCommand ) ; 

60. end; 

61 begin CC. li := cmd; CrtAction (CC.cmd); end; 

62 

63 PROCEDURE CriTtl; 

64. var s; stringSO; 

65. begin MakeString (txt»ln.s>; CrtTitle (s); end; 

66 . 

67. PROCEDURE CrtPmt; 

68 var si, s2: stringBO; 

69. begin MakeString ( t x t, In 1 , s 1 ) ; MakeString ( op t, ln2< s2 ) ; 

70 CrtPrompt (5l,s2); end; 

71. 

72 PROCEDURE CrtPau; 

73. begin CrtPau se (ch); end; 

74. 

75 FUNCTION Ucase. 

76. begin Ucase ;= Uppercase <ch); end; 

77. ' 

78 FUNCTION GetLl; 

79 begin GetLl .= GetLongNum (num); end; 

80. 

81 FUNCTION Getl; 

82 begin Getl ;= GetNum (num); end; 

83 

84. FUNCTION GetB; 

85. begin GetB GetDyte; end; 

86 . 

87. FUNCTION GetSt; 

88. var s; stringSO; status; CrtStatus; i: integer; 

89 begin MakeString (buf, In, s); 

90. status ;= GetString (s); 

91 . if s = ' ' then s ; = ' '; 

92. for i ;= 0 to length(s)+l do bufCi+13 := sC13; 

93. GetSt ; = status; 

94. end, 

95. 

96. FUNCTION Tone; 

97. begin 

98. Tone ;= ord4<Bel ITone ( ord ( t imbre ) , or d ( dura t i on ) , ord ( per iod ) ) ) ; 

99. end; 

100. 

101. END 

102 . 
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0 

58 

92 



1 

21 

44 

57 

92 

127 

58 




128 

58 




2 

58 




3 

58 




80 

21 




A 

40 

45 



BELLTONE 

98 




BUF 

33 

89 

92 


CC 

56 

61 



CCCRTIO 

19 




CCCRTIOINI 

50 




CCDEFN 

19 




CH 

29 

30 

73 

76 

CMD 

25 

59 

61 


CRTACT 

25 

55 



CRTACTION 

61 




CRTARR80 

21 

26 

27 

28 

CRTCOMMAND 

59 




CRTINT 

23 

49 



CRTPAU 

29 

72 



CRTPAUSE 

73 




CRTPMT 

27 

67 



CRTPROMPT 

70 




CRTSTATUS 

31 

32 

33 

88 

CRTTITLE 

65 




CRTTTL 

26 

63 



DURATION 

35 

98 



FI 

58 




FCRTIO 

15 




GETB 

34 

84 

85 


OETBYTE 

85 




GET I 

31 

81 

82 


GETLI 

32 

78 

79 


GETLONGNUN 

79 




GETNUM 

82 




GETST 

33 

87 

93 


GETSTRING 

90 




GOXY 

24 

52 



I 

41 

44 

45 

88 

LI 

57 

61 



LNl 

27 

69 



LN2 

28 

69 



LONG I NT 

24 

25 

32 

35 

MAKESTRING 

40 

65 

69 

89 

NUM 

31 

32 

79 

82 

OPT 

28 

69 



0RD4 

98 




PERIOD 

35 

98 



S 

40 

43 

45 

64 

SI 

68 

69 

70 


S2 

68 

69 

70 


STATUS 

88 

90 

93 



33 


92 


57 


40 


88 89 90 91 


92 
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STRING80 

TIMBRE 

TONE 

TXT 

UCASE 

UPPERCASE 

X 

Y 


40 

35 

64 

98 

68 

80 

35 

96 

98 


26 

27 

65 

69 

30 

75 

76 



76 

24 

24 


53 

53 
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1. -C FGRFIO. TEXT > 

2 . ■{. 

3 T FGRFIO — Carvus CONCEPT FORTRAN Graphics Support Unit 

4. C 

5. < <c) Copyright 1982 Corvus Systems, Inc. 

A. < San Jose, California 

7. T 

8. T All Rights Reserved 

9. T 

10. -C V 1.0 10-23-82 LEF Original unit 

11 . <: 

12. -t > 

13. -C»R-> 

14. 

15. UNIT FfirflOi 

16. 

17. INTERFACE 
IS. 

19. USES {'4iU CCL)D.> CCdefn, CCgvflO, 

20 . 

21. PROCEDURE GrTniti 


22. 

PROCEDURE 

GrSetO 

( va r X 

1 , y 1 , qua 1 ; 


L 0 n g I n t ) i 


23 

PROCEDURE 

GrPloi 

( var X 

1 , y 1 , mode: 


Long Int ) ; 


24. 

PROCEDURE 

GrDrau) 

(var X 

1, y 1, x2, y2. 

mode: 

Long I 

it ) ; 


25. 

PROCEDURE 

GrP i 1 ] 

( var X 

1 , y 1 , ujd , h t. 

den : 

Long Int > ; 


26. 

PROCEDURE 

GrCop y 

(var X 

1 , y 1 , uid, h t. 

x2, y2 

L 0 n g I n t ) ; 


27. 









28. 

IMPLEMENTATIOM 







29. 









30. 

PROCEDURE 

Gr I n i t i 

begin 

CCgrf I(3ini 

t; endi 



31. 

PROCEDURE 

GrSetO; 

begin 

Sector ig in 

( ovd 

( X 1 ) , ord 

( y 1 ) , 


32. 





or d 

( qual ) ) i 


end i 

33. 

PROCEDURE 

GrP loti 

begin 

PlotPoint 

( ord 

( X 1 ) , ord 

( y U , 


34. 





Old 

(mode) > ; 


end , 

35. 

PROCEDURE 

GrDrauii 

begin 

DrauiLine 

( ord 

( X 1 ) , ord 

( y ) i , 


36 





ord 

( x2 ) , ord 

( y 2 ) , 


37. 





ord 

(mode ) )i 


end i 

38. 

PROCEDURE 

GrFi 1 li 

begin 

Fi llBox 

( ord 

( X 1 ) , ord 

( y 1 ) , 


39. 





ord 

(uid ) , ord 

( ht ) , 


40. 





ord 

(den) ) i 


end i 

41. 

PROCEDURE 

GrCopy < 

begin 

CopyBox 

( ord 

( X 1 ) , ord 

(y 1 ), 


42. 





ord 

(uid ) , ord 

( ht ) , 


43. 





ord 

( x2 ) , ord 

(y2) ); 

end i 


44. 

45. END 

46. 
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CCDEFN 

19 




CCGRFIO 

19 




CCGRFIOINI 

30 




COPYBOX 

41 




DEN 

25 

40 



DRAWLINE 

35 




FORFIO 

15 




PILLBOX 

38 




GRCOPY 

36 

41 



GRDRAW 

24 

35 



GRFILL 

25 

38 



GRINIT 

21 

30 



GRPLGT 

23 

33 



GRSETO 

22 

31 



HT 

25 

26 

39 

42 

LONG I NT 

22 

23 

24 

25 

MODE 

23 

24 

34 

37 

PLOTPOINT 

33 




QUAL 

22 

32 



SETORIGIN 

31 




WD 

25 

26 

39 

42 

XI 

22 

23 

24 

25 

X2 

24 

26 

36 

43 

Y1 

22 

23 

24 

25 

Y2 

24 

26 

36 

43 


February 


36 


26 

31 

33 

35 

38 

41 

26 

31 

33 

35 

38 

41 
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1 -C FLBLIO. TEXT > 

2, C 


3 { FLBLIO " Corvus CONCEPT FORTRAN Label Processing Unit 

4, < 

5 < (c) Copyright 1982 by Corvus Systemsi Inc. 

6. < San Jose< California 

7 -C 

8 •( All Rights Reserved 

9. •{; 

10. < V 1.0 11-01-82 LEF Original unit 

11. -t 

12 . < > 

13. i$R-> 

14. 

15. UNIT Fib 110, 

16. 

17. INTERFACE 

18. 

19. USES -CiSU CCLIB> CCrtefn, CClbllOi 
20 

21. TYPE LblArrSO = packed array Cl. . 803 of char; 

22 . 

23. PROCEDURE Lb Ini t; 

24. PROCEDURE Lblnt; 

25. PROCEDURE LbOn; 

26. PROCEDURE LbOff; 

27. FUNCTION LbSet (var KN. Longint; 

28 var LblStr: LblArrSO; Inl; integer; 

29 var RetStr. LblArrBO; ln2; integer); Longint; 

30. 

31. IMPLEMENTATION 

32. 

33. PROCEDURE Lblnit; begin CClbllOinit; end; 

34. PROCEDURE Lblnt; begin Lblslnit; end; 

35. PROCEDURE LbOn; begin LblsOn; end; 

36. PROCEDURE LbOff; begin LblsOff; end; 

37. FUNCTION LbSet; 

38. var i: integer; Is: LblKeyStr; rs. LblRtnStr; 

39. begin 

40 . 1 s ; ® ; r s ; - ' ' ; 

41. for i : = 1 to Inl do begin 

42. Is .- concat <ls. ' 1 s C 1 eng th ( 1 s > 3 := LblStrCi3; end; 

43. for i := 1 to ln2 do begin 

44. rs := concat <rs, ' ')i rsC length (rs > 3 ;» RetStrCi3; end; 

45 LbSet .= ord4(LblSet ( or d <KN ) , Is, rs ) ) ; 

46. end; 

47. 

48. END. 
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February 


1 

21 

41 

43 

80 

21 



CCDEFN 

19 



CCLBLIO 

19 



CCLBLIOINI 

33 



FLBLIO 

15 



I 

38 

41 

42 

KN 

27 

45 


LBINIT 

23 

33 


LBINT 

24 

34 


LBLARR80 

21 

28 

29 

LBLKEYSTR 

38 



LBLRTNSTR 

38 



LBLSET 

45 



LBLSINIT 

34 



LBLSOFF 

36 



LBLSON 

35 



LBLSTR 

28 

42 


LBOFF 

26 

36 


LBON 

25 

35 


LBSET 

27 

37 

45 

LNl 

28 

41 


LN2 

29 

43 


LONG I NT 

27 

29 


LS 

38 

40 

42 

0RD4 

45 



RETSTR 

29 

44 


RS 

38 

40 

44 
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3, 

4 

5, 

6 

7 

8 
9 

10 . 

11 . 

12 . 

1 3 

14 

15 

16 

17 

18 

19 

20 


23 

24. 

25. 

26. 

27. 

28. 
29 

30. 

31. 

32. 

33. 

34. 

35. 

36. 

37. 

38. 

39 

40 
41, 
42 

43. 

44. 

45. 

46 

47 

48 

49 


•C FOMNIO. TEXT 

■C 

< FOMNIO — Corvus CONCEPT FORTRAN OMNINET Commands Unit 

f. 

■i (c) Copyright 1982 Corvus Systemsi Inc. 

■f San Joi,e» California 

C 

< All Rights Reserved 

< 

■i V 1. O 10-26-82 LEF Original unit 

-t 

^ 

-t^^R- > 

UNIT FtxnnlO. 

INTERFACE 

USES 

•C*U CCI TBl CCdefn, CComnlO. 

PROCEDURE Omlniii 

PROCEDURE OmSndM (var r s) t < BP. RPi sn» d In. h In, d s t : LongInt); 

PROCEDURE OrnSetR (var r s 1 1 . BP. RP, sn, d In. h In ; Longint); 

PROCEDURE OmFndR (var rslt.sn; Longint); 

PROCEDURE 0ml Trn (var rslt: Longint); 

PROCEDURE OmErcho (var rslt.dest Longint); 

PROCEDURE OmWho (var rslt: Longint); 

imple:mlntat ion 

PROCEDURE Omlniti begin CComnlOinit; end; 

PROCEDURE OmSndM; begin 

□CsndMesg (@BP.@RP. 

or d ( sn ) , or d ( d 1 n ) . or d ( h In ) . or d ( d st ) ) ; 
rslt ord4(OCresult ) ; end; . 

PROCEDURE OmSetR; begin 

OCsetRecv (SBP.SRP, 

ord(sn), ord(dln). ord(hln)); 
rslt or d4 ( OCr esu 1 t ) ; end; 

PROCEDURE OmEndR; begin OCendRecv (ord(sn)); 

rslt or d4 ( OCresu 1 t ) ; end; 

PROCEDURE OmITrn; begin OCinitTrans; rslt := or d4 ( OCr esu 1 t > ; end; 
PROCEDURE OmEcho; begin OCechoTrans (ord(dest)); 

rslt ord4(OCresult ) ; end; 

PROCEDURE OmWho; begin OCwhoAml; rslt ;= or d4 ( OCr esul t ) ; end; 

END. 


> 
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BP 

23 

24 

34 

38 


CCDEFN 

20 





CCOMNIO 

20 





CCOMNIOINl 

32 





DEST 

27 

44 




DLN 

23 

24 

35 

39 


DST 

23 

35 




FOMNIO 

15 





HLN 

23 

24 

35 

39 


LONG I NT 

23 

24 

25 

26 

27 

CCECr ICTR AN 

44 





OCENDPECV 

41 





OCINITTHAN 

43 





OC RESULT 

36 

40 

42 

43 

43 

OCSETRECV 

38 





OCSNDMESG 

34 





OC WHO AMI 

46 





OMEC HO 

27 

44 




OMENDR 

25 

41 




OMINIT 

22 

32 




OMITRN 

2o 

43 




OMSETR 

24 

3/ 




OMSNDN 

23 

33 




OMWHO 

28 

46 




0RD4 

36 

40 

42 

43 

45 

RP 

23 

24 

34 

38 


RSLT 

23 

24 

25 

26 

27 


46 





SN 

23 

24 

25 

35 

39 
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28 

46 


46 

28 36 40 42 43 45 

41 
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1. { FTURTLE. TEXT 

2 . { 

3. < FTURTLE — Corvus CONCEPT FORTRAN Tur t 1 eGraph i c s Unit 

4. -C 

5. < (c) Copyright 1982 Corvus Systems^ Inc. 

6. -C San Jose# California 

7. -C 

8. -C All Rights Reserved 

9. -C 

10. -C V 1.0 10-23-82 LEF Original unit 

11. -C 

12 . < 

13. -C*R-> 

14. 

15. UNIT Fturtle; 

16. 

17. INTERFACE 

18. 

19. USES -C*u CCLIB> Turt leGraph ics; 

20 . 


21. 

PROCEDURE 

InitTu; 




22. 

PROCEDURE 

Graf Mo; 




23. 

PROCEDURE 

TextMo; 




24. 

PROCEDURE 

Vi euiPo 

( var 

left.righti bottom, top: 

Long Int ) 

25. 

PROCEDURE 

PenCol 

( var 

c : 

Long Int ) 

26. 

PROCEDURE 

FilScr 

(var 

c : 

Long Int ) 

27. 

PROCEDURE 

TTrn 

( var 

degrees: 

Long Int ) 

28. 

PROCEDURE 

TTrnTo 

(var 

degrees: 

Long Int ) 

29. 

PROCEDURE 

TMov 

( var 

d i ».t : 

Long Int ) 

30. 

PROCEDURE 

TMovTo 

(var 

nxtX. nxtY: 

Long Int ) 

31. 

FUNCTION 

TurtlX: 

Long Int; 


32. 

FUNCTION 

TurtlY: 

Long Int; 


33. 

FUNCTION 

TurtlA; 

Long Int; 


34. 

FUNCTION 

ScrBi t : 

boolean; 



35. 

36. 


{*P> 
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37, IMPLEMENTATION 


38. VAR SC 

record 

case 

integer of 

39, 

1: 

< 1 i ; 

Longint); 

40 

2: 

(f 1 ; 

array Cl. . 3.1 of -128. . 127; 

41 . 


c 1 : 

ScreenColor ); 


42. endi 

43 PROCEDURE InitTu; begin InitTurtle; end; 

44 PROCEDURE GrafMo; begin OrafMode; end; 

45 PROCEDURE TextMo; begin TextMode; end; 

46 PROCEDURE ViewPo; begin VieuiPort (ord(left), ord(right). 

47 or c! ( b o 1 1 uiTi / » uTu(tup))» end; 

48 PROCEDURE PenCol; begin SC. li := c; PenCo 1 or ( SC. c 1 ) ; end; 

49. PROCEDURE FilScr; begin SC. li ; “ c; FillScreen <SC. cl); end; 

50 PROCEDURE TTrn; begin Turn (or d ( degrees )) ; end; 

51. PROCEDURE TTrnTo; begin TurnTo ( ord ( degrees )) ; end; 

52. PROCEDURE TMov; begin Move (ord(dist)); end; 

53. PROCEDURE TMovTo; begin MoveTo < or d ( n x tX ) < or d ( n x tY ) ) ; end; 

54. FUNCTION TurtlX; begin TurtlX ;= or d4 < Tur 1 1-eX ) ; end; 

55 FUNCTION TurtlY; begin TurtlY : ord4 ( Tur 1 1 eY) ; end; 

56. FUNCTION TurtlA; begin TurtlA or d4 < Tur t 1 eAng ) ; end; 

57. FUNCTION ScrBit; begin ScrBit ;= ScreenBit; end; 

58. 

59. E:ND. 
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1 39 40 

127 40 

128 40 

2 40 

3 40 

BOTTOM 24 47 

C 23 26 48 49 

CL 41 48 49 

DEGREES 27 28 50 51 

DIST 29 52 

FILLSCREEN 49 

FILSCR 26 49 

FL 40 

FTURTLE 15 

ORAFMO 22 44 

ORAFMODE 44 

INITTU 21 43 

INITTURTLE 43 

LEFT 24 46 

LI 39 48 49 

LONG I NT 24 25 26 27 28 29 30 31 32 33 39 

MOVE 52 

MOVETO 53 

NXTX 30 53 

NXTY 30 53 

0RD4 54 55 56 

PENCOL 25 48 

PENCOLOR 48 

R I GHT 24 46 

SC 38 48 49 

SCRBIT 34 57 

SCREENS IT 57 

SCREENCOLO 41 

TEXTMO 23 45 

TEXTMODE 45 

TMOV 29 52 

TMOVTO 30 53 

TOP 24 47 

TTRN 27 50 

TTRNTO 28 51 

TURN 50 

TURNTO 51 

TURTLA 33 56 

TURTLEANG 56 

TURTLEGRAP 19 

TURTLEX 54 

TURTLEY 55 

TURTLX 31 54 

TURTLY 32 55 

VIEWPO 24 46 

VIEWPORT 
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1 -C FWND3 0, TEXT > 


2 . { 

3 { FWNDIO - - Corvus CONCEPT FORTRAN Window Processing Unit 

4 -C 

5 < <c) Copyright 1982 by Corvus Systems. Inc. 

6 <; San Josej California 

7, i 

S -C AllRjghts Reserved 

9 <■ 

10 -C V 10 10-23-82 LEF Original unit 

1 1 -C 

12 , < > 


13 i$R-> 

14 

15, UNIT FwndlOi 

16 . 

17. INTERFACE 

15 

19 USES -CifcU CCLIBT CCdefir, CCwndIO; 

20 

21 TYPE WndArrSO = packed array Cl.. 803 of char; 

22 

23 PROCEDURE Wniniti 


24 

P'UNCT ION 

WnOy 5 

( var 

wn: Longint); 



Longint; 

25. 

FUNCTION 

WnCr e 

( var 

WR; WndRcd; 

var homex/ homey. 



26. 




width/ Ingth 

/ flags; Long Int ) ; 


Long Int; 

27. 

FUNCTION 

WnSel 

( var 

WR; WndRcd) 




Long Int; 

28. 

FUNCTION 

WnDel 

(var 

WR; WndRcd ) 




Long Int; 

29 

FUNCTION 

WnClr 

( var 

WR; WndRcd) 




Long Int; 

30 

FUNCTION 

WnStat 

(var 

homex/ homey 

.width. Ingth. 




31. 




cur X/ cury ; 

integer ) : 



Long Int; 

32 

33 

FUNCTION 

WnLoad 

( var 

name; WndArrSO; In; integer); 


Long Int; 

34. 

IMPLEMENTATION 







36, 

PROCEDURE Wninit 

begin CCwndlOinit; end; 




37 

FUNCTION 

WnSy s; 

begin 

WnSys ; = 

ord4(WinSy stem 

( ord ( wn ) ) ) ; 

end ; 

38 

FUNCTION 

WnCre; 

begin 

WnCre ; = 

ord4( WinCreate 

( WR. ord ( homex ) . ord (home 

39, 






ord (width). ord(lngt 

40. 






ord ( flags ) ) ) ; end; 

41. 

FUNCTION 

WnSel; 

begin 

WnSel ;= 

ord4(WinSelect 

(WR) ); 

end; 


42, 

FUNCTION 

WnDel; 

begin 

WnDel ;= 

ord4(WinDelete 

(WR) ). 

end; 


43. 

FUNCTION 

WnC 1 r ; 

begin 

WnClr ;= 

ord4(WinClear 

(WR) ); 

end; 


44. 

FUNCTION 

WnStat; 

begin 

WnStat : = 

ord4( WinStatus 

(homex 

. homey 

. width. Ingt 

45. 






cur X. 

cury ) ) 

i end; 

46 

FUNCTION 

WnLoad ; 

var i 

integer; 

s: stringSO; 




47 



begin 

s ; = ' ' i 





48. 



for i 

; - 1 to In 

do begin 




49. 



s 

; = concat 

( s. ' ' ) ; s C 1 eng th ( s ) 3 

: = nameC i 3; end ; 


50 WnLoad ;= ord4 ( WinLoadCh (s)); 

51 end; 

52 END. 

53 
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1 

21 

48 


80 

21 



CCDEFN 

19 



CCWNDIO 

19 



CCWNDIOINI 

36 



CURX 

31 

45 


CURY 

31 

45 


FLAGS 

26 

40 


FUND 10 

15 



HOMEX 

25 

30 

38 

HOMEY 

25 

30 

38 

I 

46 

48 

49 

LNGTH 

26 

30 

39 

LONG I NT 

24 

26 

27 

NAME 

32 

49 


0RD4 

37 

38 

41 

S 

46 

47 

49 

STRING80 

46 



WIDTH 

26 

30 

39 

WINCLEAR 

43 



WINCREATE 

38 



W INDELETE 

42 



WINLOADCH 

50 



W INSELECT 

41 



W INSTATUS 

44 



W INSYSTEM 

37 



WN 

24 

37 


WNCLR 

29 

43 


WNCRE 

25 

38 


WNDARR80 

21 

32 


WNDEL 

28 

42 


WNDRCD 

25 

27 

28 

WNINIT 

23 

36 


WNLOAD 

32 

46 

50 

WNSEL 

27 

41 


WNSTAT 

30 

44 


WNSYS 

24 

37 


WR 

25 

27 

28 


44 

44 




44 

28 

29 

31 

32 

42 

50 

44 

43 

44 

50 


29 


29 38 41 42 43 
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1 -f DRV in. TEXT > 

3 < DRVIO ™ Corvus Disk Drive I/O unit 

4. { 

5 < ( t. ) Copyright 1982 Corvos Systems* Inc. 

6 < San Jose* California 

7 . 

8. < All Rights Reserved 

9. -C 

10 { V 1. O 03-28-82 DP Original unit 

11. { l.Oe 23-Sep-82 DP Fixed firmuiare message 


12. { V 2. O 09-16-82 cr/jk revh mods 

13 -C 

14 -C Purpose This unit is used by all of the Corvus utilities which talk 

15 < directly to the Cervus drive (i.e. * not through the operating 

16. < system driver). It can be used for both OMNINET and local 

17. { disks It can access any slot and any server. 

18 < 

19. { > 

20 . 

21. <!CC> UNIT CCdrvIOi 

22 . 

23. INTERFACE 

24. 

25. USES 

26. -CICO -C*U /CCUTIL/CCLIB> CCdefn. CCLngInt* 

27. 

28. CONST 

29. DrvIOvcrsion 

30. CDbijf _max 

31. DrvBlkSize 

32. SndRcvMax 

33. -CICO low...,slot 

34. -CICO higii_slot 

35. low_server 

36. h igh.., server 

37. MUX 

38. DrMax 

39. 

40. 

41. TYPE 

42. SndRcvStT 

43. 

44. 

45. 

46. 

47. -CICO 

48. 

49. 

50. DrvBlk 

51. 

52. -CICO 

53. 

54. 


= RECORD 

sin. INTEGER* <send length> 
rln; INTEOERi <recv length> 

CASE integer OF 

1: (c: PACKED ARRAY C 1. . SndRcvMax 3 OF CHARli 

2. (b. ARRAY Cl. . SndRcvMax3 OF byte)i 

ENDi 

= RECORD CASE INTEGER OF 

1; (c: PACKED ARRAY C 1. . Dr vB 1 kSi z e 3 OF CHAR)* 

2; (b: ARRAY C 1. . DrvBlkSi ze3 OF byte)* 


= '2. O '* < Unit revision level ! 

= 1023* -C max. no of bytes on send to OMNINET • 

= 512; 

= 530; 

= 1 ; 

= 5; 

= O; 

* 63; 

® 64; -C max server + 1 > 

= 7; -C Max nmbr of drives on disk server or Mux> 


END; 
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35. 

C!CC> cd._buf 

= ARRAY CO. . cdbuf„.max] OF byte; 


56. 







57. 

host„types 

= ( user__stationi 




58. 


f i 1 e._i. 

erver / 




59. 


pr inter,_server/ 




60. 


name_s 

erver, 




61. 


modem. 

server, 




62. 


d server/ 




63. 


ON, .inter r onnec t/ 




64 


X25 

t: oi/ia II . 




65. 


SNA_gateujay ) ; 




66. 







67. 

val id_slot 

= low slot, .high _5 loti 




68. 







69. 

va 1 id__server 

= 1 ow,_server . . h i gh_server ; 




70. 







71. 

CDad dr 

= RECORD 





72. 


Slotno: Byte; 


•C Slot number 

• 

73. 


Kind: BlotType; 


{ Type of interface 

in 5 1 0 ! 

74. 


Netno ; Byte; 


■C Network number (UNUSED) ! 

75. 


Stationno: Byte; 


•C OMNINET station address ' 

76. 


Driveno; Byte; 


•C Disk drive number 

' 

77. 


Blkno: longint; 


•C Disk block number 


78. 


END 





79. 







80. 

DrRev - 

(NoDrv/ F<evA, RevB, RevH) ; 




81. 

DrSizes = 

(OldTenMB, FiveMB/ TenMB, Twenty MB/ Forty MB / SixtyMB 

Hundre ! 

82. 

PhysDrInfo ~ 

RECORD 





83. 


sp t ; 

INTEGER; -C 

Sectors/track 


84. 


tp c : 

INTEGER; -C 

Trac; k s/Sec tor 


85. 


c p d ; 

INTEGER; { 

Cy 1 

:Lnders/Dr ive 


86. 


Cap ac i ty 

LONGINT; -C 

Total nmbr of 312 byte 

blocks! 

87. 


DrS i z e : 

DrSizes; -C 

Dr i 

ve size 


88. 


DrTy pe : 

DrRev; -C 

Drive controller revis 

i on ' 

89. 


Phy sDr : 

BOOLEAN; -t 

true if a physi(al drive ' 

90. 


ROMver 5 : 

INTEGER; -C 

ROM 

V e r s i o n 


91. 


FirmMs g : 

STRINGCBl; -C 

Firmware message (i.e. 

CF17. 3' 

92. 


FirmVer s 

INTEGER; < 

Firmware version number 1 

93. 


END; 





94. 

PDrArray = 

ARRAY Cl 

. DrMax 3 OF PhysDrInf o; 


95. 







96. 

Sprtrks - 

ARRAY Cl 

DrMax] OF INTEGER; 



97. 







98. 







99. 

VAR 






100. 

spares Sprtrks; 





101. 







102. 

FUNCTION CDSlot 

( 

Slotnum: integer); 

BOOLEAN; 


103. 

FUNCTION CDSlotInfo ( 

Slotnum: integer); 

SlotType; 


104. 

FUNCTION CDBootInfo (VAR 

Slotnum: integer 

i 



105. 


VAR 

Srvrnum: integer): 

SI otTy p e; 


106. 

FUNCTION CDServer ( 

Server : integer 

) : 

BOOLEAN; 


107. 

PROCEDURE Initslot (VAR 

NetLoc; CDaddr 

); 



108. 

PROCEDURE CDsend 

( 

NetLoc: CDaddr; 

VAR 

st; SndRcvStr); 
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E’age 3 

109 

PROCEDURE 

CDrec V 

( NetLoc. 

CDaddr ; 

VAR 

St: SndRrvStr). 


110. 

FUNCTION 

CDr ead 

( NetLoc: 

CDaddr; 

■C 

network address of 

drive ' 

Ill 



VAR buf; 

CD. buf ; 

< 

data that is read 

' 

112. 



len 

integer 

i. 

number of bytes to 

read ' 

113. 



> integer; 


i 

returns disk error 

code ' 

114. 

FUNCTION 

CDuir i te 

( NetLoc: 

CDaddr. 

< 

network address of 

drive ’ 

115. 



VAR buf: 

CD..buf ; 

< 

data to be written 


116. 



len; 

integer 

< 

number of bytes to 

wr i t e ' 

117. 



) ; integer; 


i. 

returns disk error 

code 

118. 

PROCEDURE 

Drvin i t 

(NetLoc: 

CDaddr 




119. 



VAR NomDrives: 

INTFGEIR; 



120. 



VAR PhysDrive* 

; PDr Array ) 

; 


121. 

PROCEDURE 

CCdrvIOi 

nit; 






122 . 

123. 

124 IMPLEMENTATIGM 

125. 

126. -t^P> 
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128. CONST 


129. 

Broadcast. add 

■= 25ti; 




130. 








131 

Ml 

».c Error 


= 235, 

■C Miscellaneous ID error 

> 


132. 

Mi 

:• c _(Jmn i _ £ 

rr or 

= 254; 

T Mi sc e 1 laneous OMNINET error > 


1 33 

1 n 

/_sf vr 


= 253; 

<. Invalid server number 

> 


134 

Inv_S:iot 


* 252; 

•C Invalid slot number 

> 


1 36 

Te 

iMBSize 

18936; t Nmbr 

of blocks on a ten megabyte drive > 


138, 

VAR 







139 

< ' cc> 

Ac t; i VO s 

lot: 

Valid, _slot; t Current 10 slot in use 

> 

14Q 

■!' ' CO 




•C must be global with this 

name for 

Apple! 

141 . 


C u r _K 1 n d 


Slot Type 

< Current interface media type 

■> 

142, 

-C ' CO 

D i :.j l< _s e r 

ver : 

integer; 

f Current OMNINET disk 

server address > 

143 

< ' CO 




< must be global with this 

name for 

Apple ! 

144 








145. 

■C 'CO 

FUNC T I ON 

OS.,) 

ctSlt: integer; 

EXTERNAL.; 


146. 

< ‘CO 

FUIMCTI ON 

OS;., 

ctSrv: integer; 

EXTERNAL.; 


147 

( ’ CO 

F Ur.!C T I ON 

OSn 

ItType (slotnum: integer): SlotType; 

EXTERNAL.; 


148 

-C ' CO 

r 1 Jr^lC T T ON 

OSSltDv : integer; 

EXTERNAL.; 


149 








1 50 

!.9.P> 
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1.51 i. ! 

15.^ < Procr'duft? CDS GOT INFO ' 

153 ! 

154 {. De s c r 1 p t i on . This procedure returns the boot slot number and type ! 

155 i ' 

1 ■( ^ ' 

1 57. 

158 FUNCTION CDDuottnfo {(VAR Slotnum: integer; 

159 VAR Srvrnum: integer): SlotType>; 

loO BEC^IN 

I6 :l. Slotnum USActSlt/ 

l6-r. Srvrnum - (JSAt. tSrv. 

1611 IF (Slotnum C low .slot) OR (S)otnum > high_slot) 

164 -TICO THFN CDBootlnfo NoDisk FLSE CDBootInfo := DSSltType (slotnum); 

165 EINO, 

1 too. 

168 { ! 

169 { Procodure CDSLOTINFO ! 

1 70. { ! 

171 < Description; 1 h i r. procedure when given a slot number determine the ty ! 

1^2 c i)F interface it any the slot is allocated to. ... .' 

1 ^8. C ! 

174 < ! 

1 75 

176 FUNCTION CDSlotlnfu {(Slutnum; Valid. Slut): SlotType>; 

177 Bhi<,j:N 

178 {'CO CDSlotlnfo := OSSltType (Slotnum); 

179 END, 

180 

181. {$P.> 
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182 , < 

183. -C Procedure; CDSI.OT 

184. -C 

185. -C Descr ipt;j on: 

186. <. 

187. -C 

188. 

189. FUNCTION CDSlot •{. ( s 1 o tn urn : valid_slot): BOOL.EAN >, 

190. DEC JIM 

191. C!CC> IF aS5lttype(slotnum) IN CLocalDisk, Omni netDi s (c :i 

192. THEN BECIN 

193. Active_slnt ;= slotnuin; 

194. CDSlot’ :== TRUE; 

195. LMD 

196. ELSE CDSlot ;= FALSE; 

197. END; 

198. 

199 

200. -C 

201. < Procedure: CDSERVER 

202 . < 

203. -C Description: 

204. -t 

205. <. . 

206. 

207. FUNCTION CDServer < Server: valid server >: BOOLEAN >; 

208. DEC IN 

209 < ■)■ 

210. < validate that servernum is a disk server > 

211. -C > 

212. D i s k _s er ver := Server/ 

213. EMI); 

214. 

215. 

216. -C > 

217. ■< ■> 

218. 

219. PROCEDURE Inltslot f. (VAR Metloc: CDatIdr)}, 

220. VAF^ x,y: INTEGER, 

221. BEGIN 

222. WITH Metloc DO BEGIN 

223. Kind ;= CDbootInfo (x/y); 

224. Slotno := x; 

225. Driveno := .1; 

226. Netno : = O; 

227. Stationno := y; 

228. Blkno : 0; 

229. END; 

230. END; 

231. 

232. -C$P> 
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233. -C ' 

234. -C Procedure. CDSEND 

235. -C 

236. -C Description: This procedure send a disk command to the specified driv' 

237. { 

238. -C ' 

239. 

240. PROCEDURE CDSend C(MetLoc; CDaddr; VAR st: SndRcvStr)>; 

241. VAR Drive_unit- INTEGER; -C unit for send ing /receiving commands' 

242. 

243. BEGIN 

244. IF <Netloc Slotno Loui_slot) OK ( Ne 1 1 o c . S 1 0 tno <=• high .slot) 

245. THEN BEGIN 

246. A(:tive_s).ot ; = NetLoc . SI otno; 

247. <!CC> Drive ..unit OSSltDv; 

248. 

249. 

250 

251 -CiCO 

252 

253. 

254. 

255. 

256. 

257. 

258 -CICO 

259. 

260. 

261. 

262. END 

263. 

264 ■C*P> 


Cur Kind ;= NetLoc.Kind, 

IF Cui ..Kind = LocalDisk 

THEN UNITWRITE (Drive un i t . s t . c / s t . s 1 n, 0, Ac t j ve slot) 

ELSE 

IF Cur_1<j. nd - Umn i ne t d i r. k 
THEN BEGIN 

IF (NetLoc Stationno >-• Low. server) OR (NetL.oc . Stat i onnc ' 
THEN BEGIN 

Disk. server =■ Ne tLoc . Std t i onno; 

UNITWRITE (Dvive.unit, St. c. St s In, O, Di s k _ ser ver ! 
END 

END; 

EMI); 
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Si'S 5 . 

c!66 

267 

268 
269 . 
270 
271 . 


275 

276 , 

277 

278 
•279 
280 
281 
282 . 
28.3 
284 . 

285 

286 
287 . 
288 

289 

290 

29 1 

292 . 

293 . 

294 

295 

296 . 

297 . 

298 . 
299 

300. 

301. 

302. 

303. 

304. 

305. 


^ ; : , 

< PrcMredure: CDRECV ! 

<: ! 

< Description: This procedure receives the response from the drive afte? 

< sending a drive command. ! 

i ! 

^ 

PROCEDURE CDRecv {(NetLoc;; CDaddri VAR st: SndRcvStr)>; 

VAf<: Dr i ve_ jn i t . INTEGER* < unit for send ina /rec e i ving commands' 

C'CO lor: INTEGER; 

BLOIM 

•C'CO ior O; 

IF (Mf'tloc Slotno -C Low, slot) OR (No t loc . SI otno > High_slot) 

THEN BEGIN St.cClJ ; CHRUnv slot); st.rln := 1; END 
ELSE. BEGIN 

Ac t i ve . s 1 o t Ne tL.oc . SI otno; 

C'CO Dr 1 ve, ,un i t ; = OSSl tDv; 

CuT'_ Kind : = NetLoc.Kind; 

IF Cuv_Kind ~ LocalDisk 

(!CO THEN BEGIN UNITREAD (Drive uni t * s t. c , s t. r In, O, Ac t i ve._s lo t ) ! 

EUiE 

IF Cur _kind ~ Omninetdisk 
THEN BEGIN 

IF (NetLoc. Stationno C Loiu_server) OR (NetLoc. Stati ! 
THEN BEGIN St. c Cl 3 := CHR ( I nv_sr vr ) ; st.rln := 1! 
ELSE BEGIN 

D:i s k._server NetLoc. Stationno; 

<!CO UNITREAD (Dr i ve^uni t, st. c , st. r In, 0, Di sk._serve ! 

■C ! C C } i o r . = 1 ORESULT ; 

END 

END 

ELSE BEGIN St. cm := CHR ( Inv_s 1 ot ) ; st.rln :* 1; END; 

F.NI); 

•C'CO IF (ior -O 0) and (ior O 4) { 4 is disk error > 127 > 

<!CC> THEN BEGIN st.cClJ := CHR(misc_error ) ; st.rln := 1; END; 

END; 

C$P> 
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306. 

307. 

308. 

309. 

310. 

311. 

312. 

313. 

314. 

315. 

316. 

317. 

318. 

319. 

320. 

321. 

322. 

323. 

324. 

325. 

326. 

327. 

328. 

329. 

330. 

331. 

332. 

333. 

334. 

335. 

336. 

337. 

338. 

339. 

340. 

341. 

342. 

343. 


^ I 

< Procedure: CDREAD ! 

{ ! 

•C Description: ! 

•C ! 

{ } 

FUNCTION CDread -C(NetLoc: CDaddr; VAR buf: CD_buf; len; integer); integl 

VAR xcv; SndRcvStr; liove_len» Counts T: integer] 

BEGIN 

Count ; = Oi 
REPEAT 

WITH NetLoc. DO BEGIN 

< > 

< build read command. . . > 

•C > 

xcv. sin :» 4; xcv. rln ;® 513; 
xcv. bcn : = 50i 
T : = LIntByte (1/ Blkno); 

T : - T MOD 16i { save louier four bits > 

xcv. bC23 := t*16 + Drivenoi < and store in upper four bits > 
xcv. bC3] := LIntByte (3. Blkno); 
xcv.bC41 ;= LIntByte <2«Blkno); 

CDsend (NetLoCi xcv); CDrecv (NetLoci xcv); 

IF Len > 512 THEN Move_len := 512 
ELSE Move_len := Len; 

<*R-y MOVELEFT ( xcv. b cil, Buf CCount*5123, Move_len ) ; <*R+> 

Count ;= Count+1; 

Blkno : = Blkno + 1; 
len; =• len-512; 

END; 

UNTIL (ORD(xcv. cC13) > 127) OR (len <= 0); 

IF ORD( xcv. cE13 ) > 127 THEN CDRead := ORD( xcv. c C 1 3 ) ELSE CDRead ! 
END; 

<*P> 
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344 

345, 

346. 
347 
348. 
349 
350. 
351 
352. 
353 

355 

356 

357 

358 

359. 

360. 

361. 
362 

363. 

364. 

365. 

366. 
367 

368. 

369. 

370. 

371. 

372. 

373. 

374. 

375. 

376. 

377. 

378. 

379. 


^ 

{ Procedure: CDWRITE 

C 

< Description: 

■C 

^ 


FUNCTION CDwrite <(NetLoc: CDaddr; VAR buf: CD_.buf; len: integer); 

VAR xcv: SndRcvStri Mo ve_l en» Counts T: integer; 

BGOIN 


Count : ■= Oi 
WITH Netl.oc DO BEGIN 
REPEAT 
C 

■C build write command... 
C 


> 

> 

> 


xcv. uln : = 516; xcv. rln := 1; 
xcv. bin 51; 

T : := LlntByte( 1. Blkno); 

T 7 MOD 16; i save lower four bits 

xcv. bC2.'J ; s= T*16 + Driveno; < and store in upper four 
xcv. btOJ ;» LIntByte (3, Blkno); 
xcv bC4J ; LIntByte (2, Blkno); 

-C1.R-} MOVELEFT ( Buf CCoun t#512.] , x c v. b C 53 ^ 512 ) ; ■C*R+> 


bits 


i nte ! 


> 

> 


CDsend ( Ne tLoc < x c v ) ; CDrecv (NetLoc • x c v ) ; 

Count : “ Count+1 ; 

Blkno ;- Blkno* 1; 

Len : = Len- 512; 

UMTIl. <ORD(xcv. cC13) > 127) OR <len <= O); 

END; 

IF ORD( xcv. cC13 ) > 127 THEN CDWrite ORD( xc v. c Cl 3 ) ELSE CDWrite ; ! 

END; 


<$py 
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380 

381 
38^ 
38 3 
384 


387 

3ae 

389 

390 

391 

39';! 

394 

390. 

396 

JO 7 


399 

400 

401 
402, 

403 

404 
40*3 
406 

407, 

408, 

409, 
410 
411, 
412 
413. 

414 

415 
416. 
417 
418, 
419 
420. 
421 
422. 
423 

424. 

425. 

426. 
427 
428. 

429 

430 

431 

432 
433. 


PROCEDURE Drvlnit {( Netl.oc; CPaddr; 

VAR NumDrives: INTEGER; 

VAR PhysDrives: PDrArray)>; 

VAR X INTEGERi xcv: SndRcvStr; MaxSpTrk: INTEGER; 

PROCEDURE SetRuvA; 

VAR i ; .integer; 

.GF.0IN 

NamDi ivc5 xcv. bClI mod 8; 

FOR i - 1 70 NumDrives DO 

WITH Ph ys Dr i ves CNumDr i ves 1 DO BEGIN 
lipt : = 18 ; 

I pc : = 3; 

Cpd = 350; 

Capacity .= lenliBSize; 
l>rType : = RevA; 
r. paresi i ] : = 7, 
l»rSwe : OlilTenMB; 

END; 

END, -{:St'tRevA> 

FRUCEDURf. SetDrv; 

Var i: integer, 

QEGIIM 


FOR I - I TO Dr Max DO BEGIN 

xcv i. In 2; xcv. r In ;= 129; 

xc. v b 1 1 .1 ; = - 16; -{status command> 

:<(v. i)l2;i == 1 , 

CDSend ( Ne tLoc , x c v ) ; CURecv (NetLoc, xc v ) ; 
IF OKD(xcv. cU3) > 127 

THEN WITH PhysDrivesCil DO BEGIN 
DrType ; -- Nodrv; 

PhysDr ; = FALSE; 

Capac ) ty : = 0; 

RomVers O; FirmVers ; = 0; 

F irmMiig ; = ' ' ; 

END 

ELSE WITH PhysDr ivesC ill DO BEGIN 
NumDrives i; 

Spt ; ORD(xcv. cC35I); 

1 pc ; ^ ORD( xcv. cC363 ); 

Cpcl : - ORD( xcv. cC383 ); 

X : - ORD( xcv. cC373 ), 

Cpd : == (Cpd«-256) + x; 


IF Cpd 358 THEN 
BEGIN 

Dr T y p e : = RevB ; 

MaxSpTrk; = 7; 

DrSize ;= TenMB; END ELSE 
IF Cpd = 144 THEN 
BEGIN 

DrType ; = RevB; 

MaxSpTrk; = 7; 


1. 1983 

Page 11 
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434. 

435. 

436. 

437. 

438. 

439. 

440. 

441. 

442. 
443 

444. 

445. 

446. 

447. 

448. 

449. 

450. 

451. 

452. 

453. 

454. 

455. 

456. 

457. 

458. 

459. 

460. 

461. 

462. 

463. 

464. 

465. 

466. 

467. 

468. 
469v 

470. 

471. 

472. 

473. 

474. 

475. 

476. 

477. 

478. 

479. 

480. 

481. 

482. 

483. 

484. 

485. 

486. 

487. 


DrSize ; == FiveMBi END ELSE 
IF Cpd = 388 THEN 
BEGIN 

DrTy p e : = RevBi 
MaxSpTrk;" 7; 

DrSize := TuientyHB; END ELSE 


IF cpd 306 THEN 
BEGIN 

DrType . ~ RevH; 

IF Tpc = 2 THEN 
BEGIN 

MaxSpIrk; = 31; 

DrSize := FiveMB; END ELSE 
IF tpc = 4 THEN 
BEGIN 

MaxSpTrk:^ 31; 

DrSize := TenMB; END ELSE 
IF Tpc = 6 THEN 
BEGIN 

MaxSpTrk: = 31; 

DrSize :- TujentyMB; 

END; 

END; 

IF xcv. bL1073 = i THEN BEGJN 
PhysDr := TRUE:; 

ByteLInt (Capacity/O, xcv. bC41]i xcv. 
END 

ELSE BEGIN 

PhysDr := FALSE; 

ByteLInt (Capacity. 0. xcv. bC1103, xcv 
END; 

ROMvers := ORD ( x c v. c C343 ) ; 

FirmVers := ORD( xc v. c C33D ) ; 

F irmMsg : = ' '; 

T !CC> MOVELF.FT( xcv. bl ID, FirmMsg, 9); 

■C!CC> FirmMsgCOD ;=GHR(8); 

END; 

sparesCiD := MaxSpTrk; 

END; -CFOR> 

END; -CSetDrv> 


BEGIN 

■C 

< send old reset command to 
•C 

xcv. sin := 1; xcv.rln := 1; 
xcv. bCl 1 : = O; 

CDSend (NetLoc, xc v) ; CDRecv 
IF ORD( xcv. cClD ) > 127 then 
else 


END; -CDrvInitE 


determine drive 


(NetLoc. xcv); 

SetDrv 

SetRevA; 


type 


> 

> 

> 


<*P> 


b C403. xcv. bL.3 ' 


. bL'1093. :<cv b ' 
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488. -C 

489 { Procedure: CCdrvIOinit 

490. { 

491 C Description CCdrvIO unit initialization 

492. 

493. <: 

494 

495. PROCEDURE CC tl r v 1 0 1 n i t ; 

496. BEOJN EN))i 

497 

498 e:nd 

499 
500. 

501 

502. 



VSIXRF — CroiiS Reference Listing 
File ID: CC. DRVIO. TLXT 


February i. 1V83 
Page 14 


0 

35 

55 

226 

228 


339 

340 

354 

374 

1 

33 

46 

47 

51 


302 

323 

324 

335 


372 

374 

376 

388 


483 




1023 

30 




107 

458 




108 

464 




109 

464 




110 

464 




127 

339 

340 

374 

376 

129 

405 




144 

430 




16 

325 

326 

363 

364 

18 

391 




18936 

J 36 




2 

47 

52 

326 

328 

252 

3 34 




253 

3 33 




254 

3 32 




255 

3 29 

3 31 



256 

c>5e 

295 

423 


3 

327 

365 

392 


306 

44 1 




31 

44 6 

4 50 

454 


33 

467 




34 

466 




35 

419 




350 

393 




358 

425 




36 

420 




37 

422 




38 

421 




388 

4 35 




39 

460 




4 

301 

322 

328 

366 

40 

460 




41 

460 




5 

34 

367 



50 

323 




51 

361 




512 

31 . 

332 

334 

337 

513 

322 




516 

360 




530 

32 




6 

452 




63 

36 




64 

37 




7 

38 

396 

428 

433 

8 

91 

388 

470 


9 

469 




ACTIVE 

139 

193 

246 

251 

ADD 

129 





251 

258 

278 

287 

295 

301 

316 

376 

413 

414 

460 

464 

470 

481 

52 

94 

96 

225 

PBO 

292 

299 

336 

339 

34 0 

360 

361 

362 

37 1 

389 

404 

406 

409 

469 

480 

481 


409 4613 

406 

334 364 366 405 407 444 


448 

367 373 

438 

258 282 287 295 
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B 

4 7 

52 

323 

326 

327 


367 

388 

406 

407 

458 

BLKNO 

7 7 

228 

324 

327 

328 

BROADCAST 

1 29 





BUF 

55 

111 

115 

334 

367 

BYTE 

47 

32 

55 

72 

74 

BYTEL INT 

4 60 

464 




C 

46 

51 

251 

258 

280 


340 

374 

37 6 

409 

419 

CAPACl FY 

86 

394 

413 

460 

464 

CCDEFN 

26 





CCDRVIO 

21 





CCDRVIOJNI 

121 

4 95 




CCLNGINT 

26 





CD 

•-5 

i 1 1 

1 15 



CDADDR 

71 

1 0 .7 

.108 

109 

1 10 

CD300TINFO 

1 04 

1 58 

164 

223 


CDBUF 

30 

55 




C DREAD 

1 10 

313 

34 0 



CDRECV 

.1 09 

273 

330 

36? 

408 

CDSEND 

lOG 

:’40 

330 

369 

408 

CDSERVER 

106 

207 




CDSLDT 

102 

1 89 

194 

1 96 


CDSLOTINFO 

103 

176 

1 78 



CDWRITE 

1 1 4 

351 

376 



COUNT 

314 

316 

334 

335 

352 

CPD 

85 

393 

421 

423 

425 

CUR 

14 1 

2’49 

L'50 

P53 

285 

DB 

62 





DISK 

1.42 

212 

257 

258 

L'94 

DR I VE 

24 1 

24 7 

251 

258 

274 

DR I VEND 

76 

225 

326 

364 


DRNAX 

38 

94 

96 

404 


DRREV 

80 

88 




DRSIZE 

87 

397 

429 

434 

439 

DRSIZES 

81 

87 




DR TYPE 

88 

395 

41 1 

4 27 

432 

DRVBLK 

50 





DRVBLKSIZE 

31 

51 

52 



DRVINIT 

.) 18 

380 




DRVIOVERSI 

29 





ERROR 

131 

1 32 

302 



FIRMNSG 

91 

415 

468 

469 

470 

FIRMVERS 

92 

4 14 

467 



FIVEMB 

81 

434 

447 



FORTYMD 

81 





GATEWAY 

64 

65 




HIGH 

34 

36 

67 

69 

163 

HOST 

57 





HUNDREDMB 

81 





I 

386 

389 

396 

402 

404 

INITSLOT 

107 

219 




INTERCONNE 

63 





INV 

133 

134 

280 

292 

299 
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328 334 361 364 365 366 

460 464 469 481 

336 362 365 366 372 


75 76 

287 292 295 299 302 339 

420 421 422 466 467 483 


114 118 


482 

482 


354 367 371 

430 435 441 

286 289 

2’95 

283 287 295 


447 451 455 

437 443 


244 255 279 291 


407 410 417 418 458 472 
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IDR 

275 

278 

287 

296 

301 

KIND 

73 

141 

223 

249 

250 

LEN 

112 

1 16 

314 

332 

333 

LINTBYTE 

324 

327 

328 

362 

365 

LOCALDISK 

191 

250 

286 



LONG I NT 

77 

86 




LOW 

33 

35 

67 

69 

163 

MAX 

30 

55 




MAXSPTRK 

383 

428 

433 

438 

446 

MISC 

131 

132 

30P 



MODEM 

61 





MOVE 

314 

332 

333 

334 

352 

MUX 

37 





NAME 

60 





NETLOC 

107 

108 

109 

1 10 

114 


257 

279 

282 

285 

291 


482 





NETNO 

74 

226 




NODISK 

164 





NODRV 

80 

411 




NUMDRIVES 

119 

□88 

389 

390 

418 

OLDTENMB 

81 

397 




OMNI 

132 





OMNINETDIS 

391 

253 

289 



ON 

63 





OSACTSLT 

145 

361 




OSACTSRV 

146 

162 




OSSLTDV 

148 

247 

283 



OSSLTTYPE 

147 

164 

178 

191 


PDRARRAY 

94 

.120 




PHYSDR 

89 

412 

459 

463 


PHYSDRINFO 

82 

94 




PHYSDR IVES 

1 20 

390 

410 

417 


PRINTER 

59 





REVA 

80 

395 




REVB 

80 

427 

432 

437 


REVH 

80 

443 




RLN 

44 

280 

287 

292 

295 

ROMVERS 

90 

414 

466 



SERVER 

35 

36 

58 

59 

60 


255 

257 

258 

29 1 

294 

SETDRV 

401 

48:3 




SETREVA 

385 

484 




SIXTYMB 

81 





SLN 

43 

251 

258 

322 

360 

SLOT 

33 

34 

67 

134 

139 


279 

280 

282 

287 

295 

SLOTNO 

72 

224 

244 

24 6 

279 

SLOTNUM 

102 

103 

104 

147 

161 

SLOTTYPE 

73 

103 

105 

141 

147 

SNA 

65 





SNDRCVMAX 

32 

46 

47 



SNDRCVSTR 

42 

108 

109 

314 

352 

SPARES 

100 

396 

472 




February 1, 1V83 

Page 16 


253 

334 

366 

285 

337 

286 

339 

289 

352 

373 

374 

244 

255 

279 

291 



450 

454 

472 




1 18 
294 

222 

318 

244 

330 

246 

355 

249 

369 

255 

408 


279 302 322 360 405 480 

61 62 69 3 06 :l 42 212 

295 


405 480 

163 193 2^4 246 251 25S 

299 

282 

163 164 178 191 193 


383 
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SPRTRKS 

96 

100 










SPT 

83 

391 

419 









SRVR 

133 

292 










SRVRNUM 

105 

162 










ST 

108 

109 

251 

258 

280 

287 

292 

295 

299 

302 


STATION 

57 











STATIONNO 

75 

227 

255 

257 

291 

294 






STRING 

91 











T 

314 

324 

325 

326 

352 

362 

363 

364 




TENMB 

81 

429 

451 









TENMBSIZE 

136 

394 










TPC 

84 

392 

420 

444 

448 

452 






TWENTYMB 

81 

439 

455 









TYPES 

57 











USER 

57 











VALID 

67 

69 

139 









X 

220 

223 

224 

383 

422 

423 






X25 

64 











XCV 

314 

322 

323 

326 

327 

328 

330 

334 

339 

340 

352 


360 

361 

364 

365 

366 

367 

369 

374 

376 

383 

388 


405 

406 

407 

408 

409 

419 

420 

421 

422 

458 

460 


464 

466 

467 

469 

480 

481 

482 

483 




Y 

220 

223 

227 
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1. -C PIPES. TEXT > 

2 . { 

3. < PIPES — Corvus Disk Pipes Unit 

4. < 

5. -C Copyright 1982 Corvus Systems* Inc. 

6. -C San Jose* California 

7. { 


8. -C All Rights Reserved 


9. 

10. 

{ 

{ 

V 1.0 

01-08-82 

LEF 

Original unit (taken from PIPES 

by PHB) 

11. 

{ 

V 1. 1 

03-24-82 

LEF 

Added OMNINET support 


12. 

{ 

V 1. 2 

06-16-82 

DP 

Const II mods* clean-up 


13. 

{ 

V 1. 3 

07-31-82 

DP 

Changes PIPESINIT parameters to 

LONG I NT 

14. 

1 

{ 







16. 

17. -CfCO UNIT CCpipes; 

18. 

19. INTERFACE 

20 . 

21. USES 

22. -CfCO <*U CCLIB> CCDefn* CCLngInt, 

23. -C'CO -C*U C2LIB> CCDrvIOi 

24. 

25. CONST 

26. PipesVersion = '1.3'; {current version number> 

27. PnameLen = 8; {size of a pipe name> 

28. 

29. {pipe return codes . > 

30. PipeOk = 0; {successful return code> 

31 PipeEmpty = -8; {tried to read an empty pipe> 

32. PipeNotOpen = -9; {pipe was not open for read or write> 

33. PipeFull = -10; {tried to write to a full pipe> 

34. PipeOpErr = -11; {tried to open (for reading) an open pipe> 

35. PipeNotThere = -12. {pipe does not exist> 

36. PipeNoRoom = -13; {the pipe data structures are full* and the! 

37. is no room for new pipes at the moment. . . > 

38. PipeBadCmd - -14; {illegal command> 

39. P i p esNo t In i t t ed = -15; {pipes not initialized} 

40. {an error code less than -127 is a fatal disk error} 

41. PipeDskErr = -255; 

42. 

43. TYPE 

44. PNameStr = STR I N(3CPnameLen 3 ; 

45. 

46. VAR 

47. PipeDebug: BOOLEAN; 

48. 

49. <*py 
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50. FUNCTION pipestatus (VAR names, ptrs: DrvBlk): INTEGERi 

51. FUNCTION pipeoprd (pname: PNameStr): INTEGER; 

52. FUNCTION pipeopuir (pname; PNameStr); INTEGER; 

53. FUNCTION pipedrd (npipe: INTEGER): INTEGER; 

54. FUNCTION pipecluir (npipe. INTEGER); INTEGER; 

55. FUNCTION pipepurge (npipe: INTEGER); INTEGER; 

56. FUNCTION piperead (npipe; INTEGER; VAR info: DrvBlk): INTEGER; 

57. FUNCTION pipewrite (np ipe. wlen; INTEGER; VAR info: DrvBlk): INTEGER; 

58. FUNCTION pipesinit ( bad dr . b s i z e ; LONGINT); INTEGER; 

59. PROCEDURE CCp ip e in i t ( Ne t 1 oc ; CDaddr); 
aO. 

61. IMPLEMENTATION 

62. 

63. CONST 

64. FiveByte - 26; -C-*1A. indicates a four byte opcode> 

65. TenByte = 27; -C=$1B. ten byte opcode. . . > 

66 . 

67. -Cthe folloojing constants are used to select the type of request> 

68. OpnRd = 192; -Copen pipe for read = *C0 > 

69. OpnWt = 128; {open for write = $80 > 

70. 

71. Rd = 32; {-=$20, read pipe> 

72. Wrt 33; {=$21, write pipe> 

73 

74. (riose = 64; {=$40, close read or close write> 

75. Status “ 65; {=$41, pipe status command> 

76. 

77. PInit = 160; {initialize the pipes. . . = $A0 > 

78. 

79. {pipe state constants. . . > 

80. ClsWt = 254; { Close write = $FE > 

81. ClsRd = 253; {. Close read = $FD > 

82. Purge ~ 0; 

83. 

84. TYPE PipeName = PACKED ARRAY C 1 . . PnameLen D OF CHAR; 

85. 

86. VAR re ode: INTEGl'R; 

87. pbuf SndRcvStr; 

88. PipeNetloc: CDaddr; 

89. 

90. {$P> 
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91. 

92. 

93. 

94. 

95. 
96 

97. 

98. 

99. 
100 . 
101 
102 . 
103. 

104 

105 

106 
107. 
108 

109. 

110 . 
111 . 


FUNCTION result; INTEGER; 

< result - sends the command in pbuf to the drive and receives > 
•C the results. . . all pipe or disk errors are negative numbers > 
{ here. , . , > 

■C •»■■»•»-»•**•»■•»•■»■»*■»•■**■**•«■•»•)».•«■■*•»■»**•«•****•**♦*■«•*■**■**#**•«•#******■«•■»****■«■**•»»> 

VAR status: INTEGER; 

BEGIN 

WITH pbuf DO BEGIN 

IF pipedebug THEN WRITE < 'req = ' , b C 1 ] ; 5, b C2] : 5. ' '); 

CDsend (PipeNetloci ptuf); CDrecv (PipeNetloc> pbuf); 

IF pipedebug THEN WRITE ( "rec « ' < b L 1 ] : 5< b C2I ; 5, ' '); 

IF^ ovd<tCll) -Cdcode> > 127 

THEN status ;= ordCcClT) <dcode> 

FLSE status ;= ord(cC2D)*(-l) Cppcodel; 

IF pipedebug THEN WRITELN ('res =', status: 6); 
r(?sult :=■ status; 

END; 

END; 
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112 PROCEDURE getname (src: PNameStr; dest: INTEGER); 

114 -C getname - modifies dest so that it is exactly len chars long. > 

115 < if src is less than len characters long< dest is padded u/ith > 

116. -C blanks if src is longer than len chars, dest is the first > 

117 i len chars of src > 

1 IB. ■»•«■#■«■■»■■«•■«•*•»■»«*•»•«••« •»*•»•«•*■»(■•»■*****■«■•»*•«•**■«•■»■#*■»•***•«•*•«•■«■■«■> 

119 VAR n. INTEGER; 

120 BEGIN 

121 FOR n - 1 TO Pnamal.r,n nn 

122. IF n <:= LENGTH(src) THEN pbuf . c tdest-l+nl ;= srcCnl 

123 ELSE pbuf. cCdest-14-nJ ' '; 

124 END; 

125 

126. FUNCTION pipestatus; 

1 27 •»'»-*»'M-'»-****#*»»**#**'«-»*#»*»#»»*#*'«-##****#*****> 

128. < FUNCTION pipestatus (VAR names, ptrs: DrvBlk ); INTEGER; > 

129 < pipestatus determines the status of the pipes by reading the > 

130. C name and pointer tables from the disk. Each table is 512 > 

131 <. bytes in length, so 1024 data bytes are returned... > 

132. 

133 VAR i: INTEGER; initnames. stringC161; 

134 BEGIN 

135. WITH pbuf DO BEGIN 

136 sin . 5; 

137 rln 513; 

138. btn := FiveDyte; -(si?e> 

139. bi:2J := ord (Status); TcommandT 

140 bfO] := 1; bCAl : = 0; bC5.'J 0; 

141 END; TWITH.> 

142. CDsend ( P i p eNe 1 1 oc , p b u f ) ; CDrecv ( P i p eNe 1 1 oc , p b uf ) ; 

143. IF pipedebug THEN BEGIN WR I TELN ( ' p i p e names'); 

144. FOR i; = 1 to 33 do write(pbuf. bCil); writeln; end; 

145. rcode := ORD( p b uf . c C n ) -Cdcode}; 

146 IF rcode C 128 THEN BEGIN 

147. rcode ;= 0; ^possible soft error, so ignoreT 

M8. MOVELEFT (pbuf.bi:21, names, btll, DrvBlkSize), 

149. IF pbuf. sln<3 THEN rcode ;= -0RD( pbuf . c C23 ) ELSE 

150 BEGIN 

151. initnames ' WOOFWOOFFOOWFOOW ' ; 

152. FOR i 1 TO 8 DO BEGIN 

153 IF names. cCil C> initnamesLil THEN rcode := p i p esnot in i t te ! 

154. IF names, c C i+504D O ini tnames C i+83 THEN rcode ;= pipesnot! 

155. END; 

156. END; 

157. END; 

158. 

159 IF rcode=0 THEN BEGIN 

160. WITH pbuf DO BEGIN 

161. sin : = 5; 

162. rln : = 513; 

163. bC13 := FiveByte; -CsizeT 

164. bC23 ;= ord(Status); {command} 

165. bC33 ;= 2; bC43 := 0; bC5D := O; 
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166. ENDi -<:WITH> 

167. CDsencI (PipeNetloc» pbuf ) ; CDrecv < P i p eNe 1 1 o c > p b uf ) ; 

168. IF pipedebug THEN BEGIN WR I TELN ( ' p i p e ptrs'); FUR i:= 1 to 33 do 

169. wr i te ( pbuf , b C i 3 ) i uiritelni end; 

170. rcnde := ORD ( p b uf . c C 1 3 ) -Cdcodt*}; 

171. IF rcode C 127 THEN BEGIN 

172. rcode ;= 0< Cpossible soft error< so ignore"? 

173. MOVELEFT ( p b uf . b C23 , p tr s . b 1 1 3 < DrvB 1 kSi z e ) ; 

174. IF pbuf, slnC3 THEN rcode -ORD ( pbuf . c C23 ) ; 

175. END; 

176. END; 

177. 

178. pipestatus := rcode; 

179. END; -Cp ipe5tatus> 

180. 

181. -T*P> 
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182. FUNCTION pipeoprd; 

183 { *■«■■«■*•»•»■«••»■»«■«■**•«■■»•»•*•»»**■«••«••*•»■»■*»■*•»**•»*•»■■»«•»•»■»*■»■»*■»•***»•»(••»■•»••»■«•»•»•*•»*•»*•«• > 

184 -C FUNCTION pipeoprd (pname; STRING): INTEGER > 

195. -t Opens pipe pname for reading. A pipe may not be open for both > 

186 < read and write IF spooling is true then the entire pipe list > 

187 < searched until the name matches and the pipe is closed for read> 

188 -C If spooling is false then we only try to open the first one > 

189. C which matches > 

190 < Returns the pipe number if successful* an error code otherwise. > 

191 <. »-»'»»'»«-#'»*'»-**'»»*-»**^»-»***#»**##*»-»'****»#*»»********«*##*»'M-*»***# > 

19=;. BEGIN 

193 WITH pbuf DO BEGIN 

194. sin : -= IOj 

195 rin := 12* 

196 b i: 1 3 := TenByte; Csize> 

197 u-r23 : ■= CHR(OpnRd); {command} 

193 getname (pname* 3); {pipe name> 

199. END, {WITH} 

200 rccide . - result; 

201 IF; rood e < O 

202 THEN pipeoprd := rcode 

203. ELSE pipeoprd := pbuf. bC33 {pipeno>; 

204 END; (pipeoprd} 

205 

206 FUNCTION pipeopwr, 

207 { 

208 { FUNCTION pipeopwr (pname. STRING); INTEGER; 

209 { Open a pipe for writing. Always allocates a new pipe. 

210 { Returns the pipe number or an error code. . . 

211 { »»#**#»•»**#»*•»•»*•«■#*#*•«■■»•»■»••»•«■•»*•»*•»*•)»•*•«■■»*#**•»■■»•■«■•»■»•■»*•»■•»■«•■»•■»•■»*■»••»■*■»*■«••»•**■»■»• 

212 BEGIN 

213 WITH pbuf DO BEGIN 

214 {$R-} s)n 10; 

215. rln := 12; 

216. bill := TenByte; {size} 

217. cf23 := CHR(OpnWt); {command} 

218. getname (pname, 3); {pipe name} 

219 {$R+} END; {WITH} 

220. rcode := result; 

221. IF rcode C 0 

222 THEN pipeopwr := rcode 

223. ELSE pipeopwr := pbuf bC33 {pipeno}; 

224 END; {pipeopwr} 

225. 

226. {$P) 


} 

} 

} 

} 

} 
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227. FUNCTION closeit (npipe: INTEGER; ujhich; BYTE); INTEGER; 

229. -C closeit closes pipes for read, write, or purge depending on > 

230. -Cthevalueof which... > 

231. < Returns OkCode if successful, error code otherwise. > 

232. -C ********■»*********♦•«•*****■»******♦■»****■«•■»■»•***■«•■»•******■»•«■*■»■■«•*** > 

233. BEGIN 


234. 

WITH pbuf 

DO BEGIN 


235. 

-C*R-> 

s In 

= 5; 


236. 


r In 

= 12; 


237. 


btn 

= FiveByte; 

<S i 2B> 

238. 


bC2D 

= ord(Close); 

<c ommand > 

239, 


bl31 

= npipe; 

•Cp ipenum> 

240. 


bC4] 

= ord (which); 

<state> 

241. 


bt;5] : 

= 0; 


242. 

•C$R + > 

END; <WITH> 



243. closeit ;= result; 

244. END; -Ccloseit> 

245. 

246. FUNCTION pipeclrd; 

248. -C FUNCTION pipeclrd (npipe. INTEGER): INTEGER; ] 

249. { close a pipe for reading. IF the pipe is empty, it will be ] 

250. -C deallocated. . . . Returns an error code. ] 

251. -C *******»-«-***'»*»********#-»#******-»***'»»*##**'»*******'»***'«-**-»-*» ] 

252. BEGIN pipeclrd ;= closeit ( np i p e. C 1 sRd ) ; END; 

253. 

254. FUNCTION pipeclwr; 

255. { ■»**»**■»#*•»•«•****■»***•»♦#***«•******•»■*•«•**♦*■»•*****»»•«•#*»■«■♦•»****■«•■«■•«• ] 

256. <. FUNCTION pipeclwr (npipe; INTEGER): INTEGER; ] 

257. < close a pipe for writing. . . ] 

258. -C 3 


259. BEGIN pipeclwr := closeit (np ipe. ClsWt ) ; END; 

260. 

261. FUNCTION pipepurge; 

262. { 

263. { FUNCTION pipepurge (npipe: INTEGER): INTEGER; delete a pipe 

264. { »*****»#**■«••«■■»•■«•■«••«••»•»■■«■•»■«■»•»■«■•»*****•»■»■*■»■*****■»■*•«■■»■»•#■»•»■■»•»•«•■«■■»■■«•*■«••«■#•»•»*•» 

265. BEGIN pipepurge ;= closeit ( np ip e. Pur g e > ; END; 

266. 

267. -C*P> 


1. 1983 

Page 7 
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268. 

269. 

270. 

271. 

272. 

273. 
274 

275. 

276. 

277. 

279. 

280. 
281. 
282. 

283. 

284. 

285. 

286. 

287. 

288. 

289. 

290. 

291. 

292. 

293. 

294. 

295. 

296. 

297. 

298. 

299. 

300. 

301. 

302. 

303. 

304. 

305. 

306. 

307. 

308. 

309. 

310. 

311. 

312. 

313. 
314 
315. 


FUNCTION pipeujrite; 

■T ! 

■C FUNCTION pipeujrite ( np i p e< ujl en ; INTEGER; info: DrvBlk): INTEGER; > 

< Write ujlen bytes to pipe number npipe. O < wlen <1= 512 ! 

C Returns the number of bytes written or an error code. ' 

BEGIN 

WITH pbuf DO BEGIN 


u I i .j .- riveuyte; tsi/ei 

bl.2:i := Wrt; {command> 

bl.3 1 := npipe; {.pipenum> 

bi:4J :== Wien MOD 256; ■Qen.lol 

bL53 Wien DIV 256; -Clen.hU 
END; IWTTH> 

MOVELEFT ( info, b Cl 3. pbuf. b C63» wlen ) 
r c • I (] e : - re r. u 1 1 ; 

IF r:<)de < 0 

THEN pipswrite : rrode 

ELSE pipewrite . pbuf. bC43»256 

END; f p i p ewr i 1 1 ? > 


rrode 

pbuf. b C43»256+pbuf bC33 •Uen>; 


FUNCTION pxperead, 

•C FUNCTION piperead (npipe: INTEGER; VAR info; DrvBlk 

■t Read upto 512 bytes from pipe npipe. 

< Returns nutriber of bytes read or error code. . . . 


BEGIN 

WITH pbuf DO BEGIN 
sin : = 5; 
r I n : ~ 516; 

b 1. 1 J ; ~ F 1 V e B y t e ; <s i y e> 

bl23 ;= Rd; fcommand> 

btOJ := np:i,pe; •Cpipenum> 

bt:^.J ; = 0; -Ueii. lo> 

b f 5 J : = 2; -C 1 en. h i > 

END; {WITH> 
rcnde result; 

IF rcude >= 0 THEN BEGIN 

rrode := p b u f . b C 4 J »256+p b uf . b C3 1 flen>; 
MOVELEFT (pbuf. bl53, info. bClJ.rcode); 
END, 

piperead := rcode; 

END; fpiperead> 


C$P> 
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316 FUNCTION pipnsinit; 

317 < > 

318 -C FUNCTION pipesinit ( b ad dr , b s i z e : INTEGER): INTEGER; > 

31? { initialize the pipe data structures. baddr is the block number > 

320 < ot the start of the pipe buffer* bsize is the length in blocks. > 

322 BEGIN 

323. IF (< baddr C O) DR (bsize < 0)) THEN BEGIN 

324 Calloui negative numbers if you want to start at > 32k> 

325 pipesinit : PipeDskErr; 

326 EXIT (pipesinit); 

32 7 END; 

328 WITH pbuf DO BEGIN 


32? 

•t»P-> sin : ■= 

10; 



330. 

i- 1. n . ■- 

12; 



331 

b I 1 ■] : - 

T enDy te; 

■{. size )• 


332. 

b (.. 21 

or d ( P In i t ) ; 

Cc ommand > 


333. 

b 1.: 3 1 : ■= 

L I n t B y t e ( 3 * 

baddr ) ; 

Caddr. lo> 

334. 

b 1 4 J : = 

LIntByte(2< 

baddr ) ; 

•Caddr. h i> 

335. 

b 1. 51 : = 

L I n t B y t e ( 3 < 

bsize); 

-Cbuf si re. lo> 

336 

b 1. 6 1 '= 

LIntBijte(2, 

bsize); 

■Cbufsize. hi! 

337 

t^R + > END, -(.WITH> 



338 

pifies:init 

-■ result; 



33?. 

END; 





340 

341. PROCEDURE CCpipeinit -{:(Netloc: CDaddr)>; 

342 B£(^IN 

343. pipeDebutj :- FALSPs 

344 PipeNetloc .= Netloc, 

345. EN)>; 

346 

347 END 
34S. 
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0 

30 

82 

140 

147 

159 

165 

172 

201 

221 

241 

286 


304 

308 

323 









i 

84 

100 

102 

1 03 

104 

105 

121 

122 

123 

138 

140 


1 44 

145 

148 

152 

163 

168 

170 

173 

196 

216 

237 


:.'78 

284 

301 

310 

331 







10 

33 

1 94 

314 

329 








1 1 

34 











12 

35 

J 95 

21 5 

236 

277 

330 






127 

.1 03 

,1 71 










128 

69 

1 46 










14 

:;<8 











15 

39 











16 

,1 33 











160 

77 











192 

68 











2 

100 

.1 02 

105 

139 

148 

149 

164 

165 

173 

174 

197 


2 1 7 

238 

279 

302 

305 

332 

334 

336 




253 

81 











254 

HO 











255 

41 











256 

1'81 

282 

288 

309 








26 

64 











27 

65 











3 

140 

149 

165 

174 

198 

203 

218 

223 

239 

280 

288 


303 

309 

333 

335 








32 

71 











33 

72 

144 

168 









4 

140 

165 

240 

281 

288 

304 

309 

334 




5 

100 

102 

136 

140 

161 

165 

235 

241 

276 

282 

299 


305 

310 

335 









504 

154 











513 

137 

162 










516 

300 











6 

106 

284 

336 









64 

74 











65 

75 











8 

27 

31 

152 

154 








9 

32 











B 

100 

102 

138 

139 

140 

144 

148 

163 

164 

165 

169 


173 

3 96 

203 

216 

223 

237 

238 

239 

240 

241 

278 


279 

280 

281 

282 

284 

288 

301 

302 

303 

304 

305 


309 

310 

331 

332 

333 

334 

335 

336 




BADDR 

58 

323 

333 

334 








BSIZE 

58 

323 

335 

336 








BYTE 

227 











C 

103 

104 

105 

122 

123 

145 

149 

153 

154 

170 

174 


197 

217 










CCDEFN 

22 











CCDRVIO 

23 











CCLNOINT 

22 











CCPIPEINIT 

59 

341 










CCPIPES 

17 











COADDR 

59 

88 
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CDRECV 

101 

142 

167 



CDSEND 

101 

142 

167 



CLOSE IT 

227 

243 

252 

259 

265 

CLSRD 

81 

252 




CLSWT 

80 

259 




DEST 

1 12 

122 

123 



DRVBLK 

50 

56 

57 



DRVBLKSIZE 

148 

173 




FIVEBYTE 

64 

138 

163 

237 

278 

OETNAME 

1 12 

198 

218 



I 

133 

144 

152 

153 

154 

INFO 

56 

57 

284 

310 


INITNAMES 

1 33 

1 51 

153 

154 


LINTBYTE 

333 

334 

335 

336 


LONG I NT 

58 





N 

1 19 

121 

122 

123 


NAMES 

50 

148 

153 

154 


NETLOC 

59 

344 




NPIPE 

53 

54 

55 

56 

57 


303 





OPNRD 

68 

197 




OPNWT 

69 

217 




PBUF 

87 

99 

101 

122 

123 


160 

167 

169 

170 

173 


275 

284 

288 

298 

309 

PINIT 

77 

332 




PIPEBADCMD 

38 





PIPECLRD 

53 

246 

252 



PIPECLWR 

54 

254 

259 



PIPEDEBUG 

47 

lOO 

102 

1 06 

143 

PIPEDSKERR 

41 

325 




PIPEEMPTY 

31 





PIPEFULL 

33 





PIPENAME 

84 





PIPENETLOC 

88 

101 

142 

167 

344 

PIPENOROOM 

36 





PIPENOTOPE 

32 





PIPENQTTNE 

35 





PIPEOK 

30 





PIPEOPERR 

34 





PIPEOPRD 

51 

182 

202 

203 


PIPEOPWR 

52 

206 

222 

223 


PIPEPURGE 

55 

261 

265 



PIPEREAD 

56 

291 

312 



PIPESINIT 

58 

316 

325 

326 

338 

PIPESNOTIN 

39 

153 

154 



PIPESTATUS 

50 

126 

178 



PIPESVERSI 

26 





PI REWRITE 

57 

268 

287 

288 


PNAME 

51 

52 

198 

218 


PNAMELEN 

27 

44 

84 

121 


PNAMESTR 

44 

51 

52 

1 12 


PTRS 

50 

173 




PURGE 

82 

265 
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301 

168 169 


227 239 232 239 263 280 


135 142 144 .145 148 .149 
174 193 203 213 223 234 
310 328 


168 343 
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RCODE 

86 145 

146 

147 

149 

153 

154 

159 

170 171 

172 


174 178 

200 

201 

202 

220 

221 

222 

285 286 

287 


307 308 

309 

310 

312 






RD 

7 1 302 









RESULT 

91 107 

200 

220 

243 

285 

307 

338 



RLN 

137 162 

195 

215 

236 

277 

300 

330 



SLN 

1 36 1 49 

161 

174 

194 

214 

235 

276 

299 329 



SNDRCVSTR 87 

SRC J12 J22 

STATUS 75 97 104 105 106 107 139 164 

STRING 44 133 

TENBYTE 65 196 216 331 

WHICH 227 240 

WLEN 57 276 281 282 284 

WRT 72 r»79 
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1. C SEMA4. TtXT > 

2. -C 

3. < GFMA4 — Corvus Disk Sema4s Unit 

4 <. 

5 < Copyright 1982 by Corvus Systems> Inc. 

6, -V San Jose< California 


7. ■{: 

B. < A.11 Rights Reserved 

9. -C 

10 -C V 1. 0 01-08-82 LEF Original unit (taken from SEMA4 by PHB ) 

11 -C V 1, A 06-15-82 DP Const II mods, clean-up 

12. f 

13. -C > 

14. 

15. CICO UNi r CC.SEMA4; 

16. 

17. INTERFACE 
IB 

19, USES 

20 CICO <;4iU CCI..IB> CCdefn, 

21 -CICO (,1>U C;.2I 1B> CCdrvIOi 

23. CONST 

24 Sem<\4R(?v - ' 1 . 1 ' ; 

25 

26. C Return codes for the semaphore unit. ! 

27. -C negative function return values indicate error conditions ! 


28 

i 0 return means no error (and not set 

prior to 

op erat i on ) 

29, 

< it80 (128) return means key 

set prior 

to 

op erat i on 

30 








31 

SemWasSet 

= 

128i < the prior state of this 

semaphore was locked 

32. 

Se.nNcitvSet 


0; -i prior state 

was unlocked 



33. 

SemFu 1 1 


-253; < semaphore table is full 

(32 active semaphores) 

34, 

SemDs kErr 


-255; < disk error 

during write 

thru 


sJ . 

36, 

TYPE 







37, 

SemStr 

- 

STRINGC83; 





38. 

SemKey s 


PACKED ARRAY Cl. .83 

OF CHAR; 




39. 

SemKeyLi st 


RECORD CASE integer 

OF 




40. 



1 : ( s key ; 

ARRAY Cl. 

.323 OF 

SemKey s ) ; 

41. 

■C ICO 


2 ; ( 5 b y t ; 

ARRAY Cl. 

. 256 3 OF 

byte); 

42. 



END; 





43 








44, 

VAR 







45. 

Sema4debug : 


BOOLEAN; 





46, 








47. 

■C$P> 
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48. FUNCTION SemLock (key. SemStr ) : INTEOERi 

49. FUNCTION SemUnlock (key: SemStr): INTEGER; 

50. FUNCTION SemClearr INTEGER; 

51. FUNCTION SemStatus (VAR kbuf": SemKeyList): INTEGER; 

52. PROCEDURE CCSema4In i t ( Net 1 oc : CDaddr); 

53. 

54. 

55. IMPLEMENTATION 

56. 

57. VAR 

58. xcv: SndRcvstr; 

59. SemNetloc: CDaddr; 

60. 

61. -C*P> 
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62 -C »•»»*«*«••»#*»****»*♦********************#*******«•*»#*»#*■«•**#**■»** > 

63. -C SemClear sends a command uhich inititalizes the semaphore table > 

64 < to b lanks . . > 

65. { ■»#****-»*********-»*****'»»"JHHHI-»**')t***'»HHHJ-**»*******-JHHH«-**'IHMHHt*'9Mf* > 

66. FUNCTION SemClear; 

67. BEGIN 

68. WIIH x(.v DO BEGIN 

69 sin : = 5i xcv. rln := 2; 

70. b i: 1 3 := 26; <5 byte commands are now lAXvs. A in rev A drives> 

71. bl23 := 16; 

72 bL33 := O; {don't care about the rest of the bytes. . . > 

73 br.4;] ;= 0; 

74. bl.53 := 0; 

75 END; 

76 CDsend ( SemNetLoc i xc V ) i CDrec v ( SemNetLoc > x c v ) ; 

77 IF sem34debug THEN uiritelnt 'sem clear; xcv. bC13, xcv. bC23); 

78. IF ORD( XLV cCll) > 127 

77 THEN SemClear := -OKD( x c v. c C 1 3 ) 

00 ELSE SemClear ;= 0; 

81 END; { SemClear > 

82 

83. {$P> 
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84. 

85 

86 . 

87. 

88 . 

89. 

90. 
91 
92. 
93 

94. 

95. 

96. 
97 
98. 
99 

100 . 

101 . 

102 . 

103. 

104. 

105. 

106. 
107. 
103. 

109. 

110 . 

111 

112 

113. 

114. 

115. 
1 16. 
117. 
1 1 3 
119. 
120 
121 
122 

123. 

124. 

125. 

126. 

127. 

128. 
129. 


FUNCTION ComKey (key: SemStr). INTE(5ER; 

VAR i; INTECJER; 

BEGIN 

WITH xcv DO BEGIN 

sin ; ~ 10; xcv. rln := 12; 
b r. 1 J : = 11; 

FOR i ; 1 TO 8 DO 

IF i •O--' LENGTH (key) 

then cLi+2J : = keyCin 
ELBE (;Ci+2D 

END; • 

CDsend (SemNetLoc » xcv); CDrecv(SemNetLoc# xcv); 

IF Sema4debug THEN WRITELN( 'comkey results; xcv. bC13< '• '> xcv. bC2! 

IF ORD(xc.v. tCl.1) > 127 

THEN ComKey : -ORD ( x c v. c 1 1 3 ) 

EI..SE IF ORD( xcv. cC23 ) > 127 

THEN ComKey := ~ORD( xcv. ci;23 ) 

ELSE CornKey ; = ORD( xcv. c C23 ) ; 


END; 


-C FUNCTION SemLock (key: SemStr): INTEGER; > 

< KEY is an eight character string which is written into the > 

< semaphore table IF- it was not there already. . . > 

FUNCTION BemLock; 

BEGIN 

xcv. bCLI] ; = 1; 

SemLock CornKey (key); 

END; 


■C FUNCTION SemUnlock (key: SemStr): INTEGER; > 

{ delete a key from the sem table and indicate whether or not> 
{ it was there before. . . . return codes are described above. > 
T »■»#•»••«■*■»■«••»•»■■«••»■■»■»•»■■»•»•»»•«••»•»••»•«••»**•»•»••«•■»■»*«•«••«•■»*•»********•»****■»•**■»■*•» } 
FUNCTION SemUnlock; 

BEGIN 

xcv. bC23 : = 17; 

SemUnlock ;* CornKey (key); 

END; 

•C!FP> 
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130. 


131. 

•C FUNCTION SemStatus (kbuf; SemKeyLi st ) : INTEGER; 

> 

132. 

■C returns the actual semaphore table 

> 

133. 


134. 

FUNCTION SemStatus; 


135. 

BEGIN 



136. 

X c V. sin 

= 5; xcv. rln ; = 257; 


137. 

xcv. bcn 

= 26; 


138. 

xcv. bC23 

= 65; 


139. 

xcv. bC31 

= 3; 


140. 

xcv. bC43 

= 0; 


141. 

xcv. bC53 

- 0; 


142. 

CDsend (SemNetLoCi xcv); CDrecv (SemNetLoc / xcv); 


143. 

IF sema4debug then uiriteln( 'sem status: ' » x c v. b C 1 3 » '< 

' » xc V 

144. 

IF ORD( xc 

✓ . cC13) > 127 THEN 


145. 

BEGIN 



146. 

SemStatus ; = -CRD ( xc v. c C 1 3 ) ; 


147. 

EXIT (SemStatus); 


148. 

END; 



149. 

MOVELEFT 

(xcv. bl.2 3. kbuf. sbytCl J. 256); 


150. 

SemStatus 

;= 0; 


151. 

END; 



152. 




153. 




154. 

PI?OCEDURE CCSema4Init {(Netloc; CDaddr)>; 


155. 

BEG. IN 



156. 

Sema4debuf| FALSE; 


157. 

SemNet 1 or 

: = Netloc ; 


158. 

END; 



159. 




160. 

END. 



161. 




162. 





bC2J)i 
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0 

32 

72 

73 

74 

80 

140 

141 

150 

1 

38 

40 

41 

70 

77 

78 

79 

89 


98 

113 

137 

143 

144 

146 

149 


10 

88 








11 

89 








12 

88 








127 

78 

97 

99 

144 





128 

31 








16 

71 








17 

125 









41 

69 

71 

77 

92 

93 

96 

99 


125 

138 

143 

149 





253 

33 








255 

34 








256 

41 

149 







257 

136 








26 

70 

137 







3 

72 

139 







32 

40 








4 

73 

140 







5 

69 

74 

136 

1 41 





65 

138 








8 

37 

38 

90 






B 

70 

71 

72 

73 

74 

77 

89 

96 


138 

139 

140 

141 

143 

149 



BYTE 

41 








C 

78 

79 

92 

93 

97 

98 

99 

100 

CCDEFN 

20 








CCDRVIO 

21 








CCSEMA4 

15 








CCSEMA4INI 

52 

1 54 







CDADDR 

52 

59 







CDRECV 

76 

95 

1 42 






CDSEND 

76 

95 

142 






COMKFV 

84 

98 

100 

101 

114 

126 



I 

85 

90 

91 

92 

93 




KBUF 

51 

149 







KEY 

48 

49 

84 

91 

92 

3 14 

126 


NETLOC 

52 

157 







RLN 

69 

88 

136 






SBYT 

41 

149 







SEMA4DEBUG 

45 

77 

96 

143 

156 




SEMA4REV 

24 








SEMCLEAR 

50 

66 

79 

80 





SEtIDSKERR 

34 








SEMFULL 

33 








SEMKEYLIST 

39 

51 







SEMKEYS 

38 

40 







SEMLOCK 

48 

111 

114 






SEMNETLOC 

59 

76 

95 

142 

157 




SEMNOTSET 

32 








SEMSTATUS 

51 

134 

146 

147 

150 




SEMSTR 

37 

48 

49 

84 





SEMUNLOCK 

49 

123 

126 
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90 96 97 

100 101 113 


113 125 137 

101 144 146 
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SEMWASSET 

31 











SKEY 

40 











SLN 

69 

88 

136 









SNDRCVSTR 

58 











STRING 

37 











XCV 

58 

68 

69 

76 

77 

78 

79 

87 

88 

95 

96 


97 

98 

99 

100 

101 

113 

125 

136 

137 

138 

139 


140 

141 

142 

143 

144 

146 

149 








File: CCLIB. BIT.TEIT 


fege 1 


1 * , File ccltb bit teit 
1* , Cite: I 3 -K 4 T -82 
3 * 

4 * , 

5 * i Cot»us COKCEPT bit aiiufa.etion tjac'.ions 
4 * , 





8* 

GLOBAL EiTfLlF,SIT£ET,Bi 

TCLLAR , a 1 7TL;T , SH i F7R7 . 5H I .'TIT MAAE B V7£ 




Ifl* 

, 





11* 

, Funetten BitFlrp (data, bitr.ua 

integer) integer 




12* 

, 


0000 

:05F 


13* 

BITFLIF H&VE L (3P;»,AG 

.. AC : return adcress 

0002 

4C9t 

0003 ' 

14* 

hOVEM.tf (3P)a,D0-Dl 

, DO : bit nab: , Dl : d.ia word 

0004 

0141 


15* 

BCKG DC, 31 

: lip the bit 

0008 

3E81 


16* 

MOVE V D1,(5P) 

p.ace chanced were on stact 

OOOA 

4ED0 


17* 

JMP (AC) 

: rerun, to Pascal 




18* 






19* 

, 





20* 

. Fancticn fiitSet (da ta . bi tnua 

integer- integer, 




21* 



GOOC 

205F 


22* 

EITSET HOVE L (£?)♦. AO 

. AC : return «ddress 

OOOE 

4C9F 

00 03 

2 3* 

MOVEM V vSFit,D0-n 

, DC : bit niDi . Da = data word 

0012 

OlCl 


24* 

ISET CO, Cl 

. set the bit 

0014 

3E81 


25* 

MOVE W Dl (SF.‘ 

, place changed wore on stack 

OOU 

4EDC 


24* 

JMP (AO) 

, return to Fascal 


27« 

28 * , 

29* , Fancticn SitCleir tditi.bitnui integer/ integer. 
jO* . 


0018 

0018 20bf 
OOIA 4C9F 0003 
OOIE 0181 
0020 3£8l 

0022 4EDO 


31* 1 

ilTCLEAR 


32* 

MOVE L 

(SF'a.AC 

33* 

MOV EM W 

vSF)«.D0-Dl 

34* 

GCLfi 

OC,Dl 

35* 

HOVE y 

Dl, ;Sf) 

36* 

37* 

.MP 

(AC) 


AC : return iddteis 

DO : bi i nsbr Di = diti were 

( leer the bi t 

piece chenged word on suci 
return to Fascei 


0024 205F 

0024 4C9F 0003 
0O2A 4237 
002C 0101 

002E 4704 

0030 lEBC 0081 
0034 4ED0 


38* , 

39* , Function SitTest (date bitnoa integer/ beCican. 

40* . 

41* BIHEST MOVE . (SFW.AC , AO s return address 

42* HGVEH W i3P)*,Dfl-Dl . 00 = bit nubi. Dl = data word 

43* CLR V iSF) , assute taise i C 

44* 6TST DG,Dl , test the bn 

45* ROFF S 8TI 

44* MOVE B li.iSF) 

47* BTX JMF lAOt 

48* 


, bit IS on letnrn true 
, return to Pascal 



CCLIB BI7.TEIT 


Pjige 2 


G03i 20SF 
C33« 301F 

003A E24B 
003C 3ES0 
003C 4EOO 


0045 2C5F 
0042 30iF 
0044 £348 

UH 3E80 
0048 4ED0 


004A 

0O4A 205F 
0042 30iF 
304E iE80 
5050 4ED0 


‘EITCLEAH 

•BITFLIP 

0 etrirs 


50* ; 

SI* , Function ShiftRt (dit^. integei). integer, 
52» ; 


53* 

SHIFTRT MOVE.L 

(SP)f,AG 

AO : return eddress 

54* 

HOVE.V 

(SP)i,DG 

DO = word to be shifted 

55* 

L5R.V 

#l,Dfl 

shift it right 

56* 

NOVE.W 

D0,(SP) 

push result on stack 

57* 

JMP 

(AC) i 

return to Pascal 

58* 




59* 




60* 

, Function SbiftLt (dete. integer 

): integer, 

61* 

, 



62* 

SHIFTLT MOVE.L 

;SP)+,AO 

AO = return address 

63* 

MOVE.y 

(SP)f,D3 

DO a word to be shifted 

64* 

LSL.V 

»!,OC 

shift It left 

65* 

MOVE.W 

00, (S?) 

push result on stack 

66* 

JMP 

(AG) i 

return to Pascal 

67* 




»8* 

, 



69* 

, Function KaAeBfte (n. integer). 

byte. 

70* 




71* 

MAKE BYTE 



72* 

MOVE . L 

(SP)t,A0 


73* 

MOVE.W 

(SP)^,DO 

get n 

74* 

MOVE B 

D0,(SP) 

return function value 

75* 

JMP 

(AO) 

return to Pascal 

76* 




77* 

END 




OOOOiSf *BITSET OOOOOCf BTX D00034v «5H1FTLT 000040v 

000360^ *BITTEST 000024t «HAXEBYTE 0Q004Af *SHIFTRT 000036^ 

7? lines. File CCLIB . BIT. TEXT 



E 051. TEXT 


CCLIBJLSH 


Fiae I 


1* , File ccl lb .asK. teit 

2* ; Sal*. ll-Jan-63 

3* 

4» . 

S* , Corvus CGMCEPT opecatiria systea interface 

6 * , 

«• I DENT CCLIEASM 

M GLOBAL CSao tSi t ,u5ac tSr V ,05al tSi t ,GSa I tSce.USer tCr t 

10* GLOBAL Ossi tType,03deeType,0SsysSite .OScutSt^ 

ii* GLOBAL OSstraSv.OSprtcDv 

12* GLOBAL OSaaiOe«,uadispDe,OSkybdDv,OStiaDf 

13* GLOBAL CSoKniDv.GSdca20v,OSdcilDv,C5sllLe,OSettCRT 

14* GLOBAL p05asetID,pOSsysVad.pOScu[Vnd,pOScuiKbd 

IS* GLOEAL pO£deeKaa,pOSdate,pCS$ysVoi .pCScttrVol 

U* GLOBAL pOSsysVis,pGasysDai 

I?* GLOBAL sGetOir.eFutuic, Keypress, BckFcess 

18 * 

19* 


tncUde ' /ccos/os . gbi . asa. tei t ' 



r 1 1 i CCLI B C3I TBIT 


CCLIBA3K 


rige 2 



21» 






22« 

.File os 9 bl 

iSB.teit 


23* 

, Tite. 23 

-Jin-83 



14 * 
25* 






24* 

27* 

, Cervus CGHCEPT 

peratinq sfsc«a dati structure equates 


2?* 

29* 






3C * 
31* 
32* 

, Addttionii Corvus CGK’CEfT liu result codes 

OCCCGGOG 

IGok 

equ 

0 

,Good resuit, nc error 

S8000CG2 

33* 

IO£;n»ae» 

equ 

2 

ilDtalid unit nuaberMnval id device 

50C-0C503 

34* 

iCEtoceq 

equ 

3 

.Invalid i/G request 


35* 





SOOOCulS 

34* 

lOEnotrn 

equ 

21 

.Transporter not ready 

3 G u u C 3 i t 

37* 

1 GEt laot 

equ 

22 

.Ttaed out watting tor Oaninet even; 

G30C.0G17 

38* 

39* 

iC'Enobuf 

equ 

23 

.Head witnout a valid write boiler 

CCGOuGlG 

40* 

IGEwndta 

equ 

32 

, Invalid window function 

G30G302. 

41* 

lOEwndbe 

equ 

33 

.Window create boundary 

G5GOCG22 

42* 

I GEwr.dcs 

equ 

34 

.Invalid character sec 

03G0GG25 

43* 

iCEwnddc 

equ 

53 

.Delete current winaow 

3CGGOG24 

44* 

lOEwndds 

equ 

14 

.Delete systea wmouw 

00G30C2i 

45* 

IG£i«'ndiw 

equ 

37 

, Inactive wincow 

C&0GG324 

46* 

ICEwndwr 

equ 

3c 

.Invalid winoow record 

00G3G02? 

47* 

IQEwndwn 

equ 

37 

.Invalio systea window nuaber 


48* 





00330C2i 

49* 

lOEnodsp 

equ 

40 

.Display driver not avanabie 

3033032G 

5G» 

lOEr.okyb 

equ 

41 

.Keyboard driver net available 

3C00002A 

51* 

lOEnot III! 

equ 

42 

.Tiaer drivet not available 

0000002B 

52* 

iGEnooiin 

equ 

43 

.OMKINET driver not avail able 

OOOG302C 

53* 

iOEfiOprt 

equ 

44 

.Printer driver not avai.able 

GOOGO02D 

54* 

lOEnfdrv 

equ 

45 

,Wo floppy drive a; slot 

30000022 

55* 

ICEnodtc 

equ 


.DataCcBB driver not avdiidbie 

GG030G32 

57* 

IGEtbi id 

equ 

50 

, inval 10 lidifc entry 15 

G0GGGG33 

53* 

IGEtblll 

equ 

51 

.Table full 

30G00334 

59* 

I (3£ » b 1 1 u 

equ 

52 

.Table ent ly in use 

Cfl0iGG35 

6C* 

ICEkybte 

equ 

55 

.Keyboard transaission error 

OOOOG334 

41* 

i OEu 1 opai 

equ 

54 

.invalid uni; i/O para aetet 

OOOOOG37 

o2* 

IQEpraIn 

equ 

55 

.Invalid paraaeter biot-i length 

G30&a038 

63* 

IC'E tnccd 

equ 

54 

. Invalid function code 

G0OGO039 

%44* 

iOEclkaf 

equ 

57 

.lIccc thardware/ aallonction 


65* 





30GG0G3C 

44* 

IGEirdsfal 

equ 

6C 

Input to cead juffer disabled 

0000003D 

67* 

lOEotdsbl 

equ 

6 1 

.Output to cead buttet disabled 

000(100 3E 

o8* 

ICEiwdsbl 

equ 

42 

Input to write buffer disabled 

00000032 

49* 

lOEswdsbl 

equ 

43 

.Output to wiite buttet disabled 

00000040 

70* 

lOEbstec r 

equ 

44 

.Suffer sue error 

00000041 

71* 

lOEwsiert 

equ 

45 

.Write sue erior 

00000042 

72* 

iCErster r 

equ 

64 

.Read sue error 

00000043 

73* 

lOEuaiter 

equ 

67 

,UAST hardware error toveitun, parity, or ftaainq 

00000044 

74* 

ICEpader r 

equ 

68 

.Proportional spacing eitoi (eicess pad chars req 
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77* 

78* 

79* 

; Sfstet Couon Pointer 



s&oodiso 

80* 

pSfsCoB egn 

$0180 

ipointei 

to address of SVSCON 

000001S4 

81* 

SysKybdFlg equ 

$0184 

(keyboard control flags 

SOOOOUi 

82* 

83* 

SysByteScn equ 

$0188 

idisplay druer - bytes pet scan line 


84* 

85* 

88* 

87* 

■, Systen Couon Equates 



OOOQCOOO 

SCioislt equ 

0 

;word - 

I/O result 

00000002 

88* 

SCprocno equ 

2 

.word - 

current process nuaber 

GOC00004 

89* 

SCfteehp equ 

4 

(lint - 

free heap pointer 

OGOOOOOS 

90* 

SCjtable equ 

8 

dint - 

juap table pointer 

OGOCOOOC 

91* 

SCsysout equ 

12 

dint - 

default output file pointer 

00000010 

92* 

SCsysin equ 

18 

dint - 

default input file pointer 

GOOOOOH 

93* 

SCdevtab equ 

20 

dint - 

device (unit) table«pointer 

OQOOOOll 

94* 

SCdirnat equ 

24 

dint - 

directory naae siring pointer 

OOOOOOiC 

95* 

SCutable equ 

28 

dint - 

user table pointer 

00000020 

98* 

SCtoday equ 

32 

.word - 

systei date 

00000022 

97* 

SCcoden equ 

34 

dint - 

code iuip table pointer 

00000020 

98* 

SCnitpro equ 

38 

.word - 

neat process nuiber 

00000028 

99* 

SCnuapro eou 

40 

.word - 

nuaber of processes 

OOOOQ02Ji 

100* 

SCpiotbi equ 

42 

dint - 

process table pointer 

C000032E 

101* 

SCbootna equ 

48 

dint - 

boot device naae pointer 

00000032 

102* 

SCieuap equ 

50 

dint - 

aeaory aap pointer 

00000038 

103* 

SCbootde equ 

54 

iwotd - 

boot device nuaber 


104* 



, 



105* 



. CONCEPT additions 


108* 

, equ 

58 

.word - 

unused 


107* 

1 equ 

58 

.word - 

unused 

0000003C 

108* 

SCslttbl equ 

80 

dint - 

slot table pointer 

00000040 

109* 

SCrootw equ 

84 

.lint - 

root window record pointer 

00000044 

no* 

SCcuitw equ 

88 

dint - 

current window record pointer 

00000048 

in* 

SCcutrk equ 

72 

dint - 

current keyboard record pointer 

OC00004C 

112* 

SCuseiid equ 

78 

iword - 

Constellation user ID 

OG00004E 

113* 

SCvrsnbr equ 

78 

.lint - 

current version nuaber string pointer 

00000002 

114* 

aCvrsdat equ 

82 

.lint - 

current version date string pointer 

00000008 

115* 

SCwndtbl equ 

88 

.iint - 

window table pointer 

OOOOOOOA 

118* 

SCsusinh equ 

90 

.word - 

suspend inhibit count 

OOOOOOOC 

117* 

SCsusieq equ 

92 

;wotd - 

suspend request if non-sero 


118* 
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file. CCLIB.OSI.TEn 


CCLiEkSK 



120* 

i 





121* 

, Sfstea Vec 

or Equates 



122* 





CQOOOOQO 

123* 

SVuwrite 

equ 

0*4 

unit write 

00300004 

124* 

SVuiead 

eqn 

1*4 

anil read 

00000908 

125* 

SVucieir 

eqa 

2*4 

unit clear 

OQOOOOOC 

126* 

SVubasT 

equ 

3*4 

unit busy 

OOQQOOlO 

127* 

SVpat 

eqa 

4*4 

pot 

00800014 

128* 

SVget 

eqa 

5*4 

get 

00800018 

129* 

SViait 

eqa 

6*4 

mi t 

OOOOOOIC 

130* 

SVopen 

eqa 

7*4 

open 

00800020 

131* 

SVclose 

equ 

6*4 

close 

00800024 

132* 

SVwrchat 

equ 

9*4 

wr itechar 

0O0GCO28 

133* 

SVrdchar 

equ 

10*4 

readchar 

0000002C 

134* 

SVblkio 

equ 

11*4 

blockio 

09800030 

125* 

SVseek 

equ 

12*4 

seek 

03003834 

136* 

SVnew 

equ 

13*4 

new 

30030C38 

137* 

SVdsp 

equ 

14*4 

dispose 

0008333C 

138* 

SViaik 

equ 

15*4 

•ark 

00800040 

139* 

SVrlease 

equ 

16*4 

release 

00000044 

140* 

SViavail 

eqa 

17*4 

tetory available 

CQOOOS48 

141* 

SVgetdii 

equ 

16*4 

get directory 

OOOOCOiS 

142* 

SVcrkpth 

equ 

14*4 

crack path name 

0QD00064 

143* 

SVostat 

equ 

25*4 

unit status 

00030048 

144* 

SVnew4 

equ 

26*4 

new Uongint) 

00OG004C 

145* 

SVdsp4 

equ 

27*4 

idispose iiongint) 


146* 





0009007C 

147* 

SVcli 

equ 

31*4 

cottand line interpreter 

30000880 

148* 

SVgetvnB eqa 

32*4 iget toluae nates 

00000084 

149* 

SVvaldi c 

equ 

33*4 

check valid directory 

00000088 

150* 

SVllpdir 

equ 

34*4 

flip directory 

3060008C 

151* 

SVschdt r 

equ 

35*4 

search directory 

OOOOOOfO 

152* 

SVdeUnt 

eqo 

36*4 

delete directory entry 

C80000M 

153* 

SVpatdit 

equ 

37*4 

write directory 

00000098 

154* 

SVuinstl 

equ 

38*4 

unit install 


155* 






156* 

, 





157* 

, Menory Kap 

Equates 



158* 





00000080 

159* 

IWIodta 

equ 

0 

lint - low data pointer 

00300004 

160* 

KHhidta 

equ 

4 

lint - high data pointer 

00030038 

161* 

nKlocod 

eqa 

8 

1 int - low code pointer 

OOOOOOOC 

162* 

MKhicod 

eqa 

12 

lint - high code pointer 

OOGOGOlO 

163* 

KHbtsw 

equ 

16 

word - boot switches 

00000012 

164* 

MHbtdeT 

eqo 

18 

word - boot device number 

08000014 

165* 

IWblsit 

eqo 

20 

word - boot slot number 

000300U 

166* 

nHbtsif 

equ 

22 

word - boot server number 

00000018 

167* 

HMbtdrv 

equ 

24 

word - boot drive number 

OOOOQOIK 

168* 

MMbtblk 

eqa 

26 

word - boot volume block number 


169* 
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171* , 






172* , Unit 

Tible 

Equates 




173* , 





00OCO0O2 

174* UTiodrv 

equ 

1 

, lint - 

I/O driver pointer 

0000000& 

175* UTblf 

eqa 

& 

,bool - 

blocked device tiaq 

SOOOG0O7 

176* UTitd 

equ 

7 

,bool - 

Bounted device ilaq 

0300C008 

177* UTdid 

eqn 

8 

,sti7 - 

device lii 

OOOOGOlO 

178* UTstx 

equ 

H 

,iinl - 

device site 

00000014 

177* UTsIt 

equ 

20 

.byte - 

device slot 

OOGOOOIS 

180* UTstv 

equ 

21 

.byte - 

device server 

OOOOOOii 

181* UTdrv 

equ 

22 

.byte - 

disk drive nabi 

GC0060I7 

182* UTtfp 

equ 

23 

.byte - 

disk drive type 

00000016 

183* UTspt 

equ 

24 

.byte - 

sectors per track 

OOCOCOl? 

184* UTtp^ 

equ 

25 

.byte - 

tracks per side 

OGOOOOlA 

185* UTro 

equ 

U 

,boci - 

device lead cn.y 

OOOOOOIS 

186* UTflp 

equ 

n 

,oouI - 

volume directory t i ipped 

GGCOuOiC 

187* UTblk 

equ 

28 

, lint - 

disk base block 

CO CO 052 0 

188* I'Tlen 

equ 

32 


entry length 


18 9* 






190* , 






191* , Slol 

Table 

Equates 




i92» , 





OOOGSOOO 

193* STbtsii 

equ 

0 

.boot si 

iot number 

OOOOflOQZ 

194* STbtsrv 

equ 

2 

.boot server nusbet 

50000004 

195* STicsit 

equ 

4 

.active 

slot number 

OOOOOOOt 

196* STicsrv 

equ 

6 

.active 

server numoet 

OCQ500G8 

197* STiisIt 

equ 

e 

.alternate slot number 

QOOOOGOA 

198* STiisr? 

equ 

13 

.alternate server nuaDet 

UUUUUUUu 

iy?» 5111110 

equ 

12 

i^rtay 

i 5i or 


200' 





3G3G0G00 

201* STuibr 

equ 

c 

. slo 

.number 

COGOOOOi 

202* STtype 

equ 


device type 'Siottypes. 

00000002 

203* 5Tndrv 

equ 


. nuaoer ct drives 

00000004 

20 4* STir.tou 
205* 

equ 

4 

, device in to ier.oi.i 




2C7* 






iC 5* 

, Chiiicte; Set 

Record 

Equates 


*0?' 





uOOiGuuC 

21G" 

C3 1 D 1 1 0 c 

equ 

0 

.chatdciet set data pcmtec 

QOOOSOi)^ 

2il* 

Cslpch 

egu 

4 

iscaniines per thatauet assutewiiei 

vGGiC jOiv 

ill*- 

CSbpct. 

eqa 


L'lts pet chotictet iierticai heiqhri 

OOOOvfluS 

1 i i* 

Col t stch 

egu 

8 

, t irsi character code - ascu 

Ca GOO GOA 

;i4« 

CSUstch 

equ 

IG 

jiast character code - ascu 

COOSuOOC 

2i5« 

CSiask 

equ 

12 

,&asi: used in positioning cells 

uOliOCOlC 

2U» 

CSattil 

equ 

16 

, attributes 


2i?» 




, DU 0 : 1 - vertical orientation 

ooocaoli 

218» 

CSittri 

equ 

1? 

.currently unused 


21 9» 






220* 

, 





221* 

, Vudow 

Record 

Equates 


aoooooGo 

223* 

Wnchacpt 

equ 

G 

.character set pointer 

aoooaadi 

224* 

VRhonepi 

equ 

4 

,hoae mppet leuu pointer 

aoovcass 

225* 

VRcucaar 

equ 

i 

.current location pointer 

OODOOGSC 

226* 

VRhoaeot 

equ 

12 

,bit otiset or hoae location 

OQOOaQGE 

227 * 

VRbasei 

equ 

14 

.hoxe t value, relative tc root window 

QOCOGGIG 

228* 

VR&dsey 

equ 

i6 

,hoae y value, relative to root window 

S0000012 

22?* 

Vn 1 no t hi 

equ 

18 

.aaiiauA a value,, relative to window ibits) 

OGOOQG14 

230* 

VRingthy 

equ 

20 

.siaiiaus y value, relative to window vbiisi 

COGGOOl 6 

231* 

VRcutsi 

equ 

22 

, current i ,va; ue > bi ts ) 

00000318 

23 2* 

Whcursy 

equ 

24 

.current y value ibits/ 

GuGOGOl A 

233* 

WRbttols 

equ 

26 

,bit otlset cl current address 

OOOOOOIC 

234* 

wRgiorgi 

equ 

28 

.crapiiics - otigni x loits leiative to hoae 

GuOGOSlE 

235* 

VRgccrgy 

equ 

3C 

.graphics - origin y .nits leiat.ve to home 

0000GS20 

2 36* 

WRattrl 

equ 

3 2 

.attributes 

00300003 

235* 

invTse 

equ 

0 

, inverse vioeo aode 

SOOCGOOl 

239* 

undscc 

equ 

1 

, underscore ao^e 

00000002 

240* 

Uskcd 

equ 

2 

, insert aode 

33080303 

241* 

viddelit 

equ 

3 

, C = V on B, 1 = E on It 

00000004 

242* 

noaiitoil 

equ 

4 

. G = auto Lf w/CR, i = no auto Lt 

0O00G0O5 

243* 

syswin 

equ 

5 

, systea defined window 

00300006 

244* 

actiie 

equ 

6 

, active window 

QQOGOOC7 

245* 

suspend 

equ 

7 

, suspended window 


246* 





GQ000G21 

247* 

WRattr2 

equ 

33 

.attributes 


248* 





8000000C 

249 * 

lert 

equ 

0 

. 1 = vertical, 0 = hotixontal screen 

OO0GO301 

250* 

graphic 

equ 

1 

, 1 = graphics, 0 = character aode 

0000C0Q2 

25 i* 

curson 

equ 

2 

. 1 = cursor on, 0 = cursor off 

00000QQ3 

252* 

ini curs 

equ 

3 

, 1 = inverse, 0 = underline cursor 

OOG00004 

253* 

wrapon 

equ 

4 

. 1 : wrap, 0 = dtp at eoln 

OGOQ0003 

254* 

nosctoi 1 

equ 

5 

, 1 : no scroll, 0 = scroll 

00000006 

255* 

clrsc 

equ 

6 

, 1 : paging aode 

00000007 

256* 

lidset 

equ 

7 

, i s inverse 0 = notaal 


257* 





00000322 

258* 

VRstate 

equ 

34 

.used for decoding escape sequences 

00000023 

259* 

VRicdlen 

equ 

35 

.window description record length 

00000024 

260* 

WRattr3 

equ 

36 

;enhanced character set attributes 



CCLiS OSi TEIT 

CCLIEASM 


Puge e 

03300125 

2U* VRtiiii eqa 

37 

.curtently unused 

CG CSC 32 6 

262* VRfilli eiju 

38 

, currently unused 

OCG 03017 

2&3* VKfiin eqo 

39 

;currently unused 

QCOS0323 

264* VRfilH equ 

40 

, currently unused 

33Q30&2C 

265* VSwwsptt equ 
266* 

44 

.window working stoiege pointer 

30G33030 

267* WRiength eqo 
263* 

48 

.actual window record length 
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270* 







271* 







272* 

OSACTSLT - Get Active slot tonetion 





273* 







174* 

FUNCTION OSectSlt: integer, 






175* 



000& 




276* OSictSIt 


SOQO 

2278 

0180 


277* 

Aove.i pSysCoa.w.al 

,Get pointer to SysCoa 

0004 

2267 

003C 


278* 

■ove.l SCslltbKaD.il 

,Get pointer to slot table 

S008 

3F69 

0004 

0004 

279* 

aove.w STacslUal),4isp) 

;Get active slot ftoa slot table 

OOOE 

4E75 



280* 

rts 

.Return 





181* 







282* 







183* 

OSACTSRV - Get active server tunction 





284* 







185* 

FUNCTION OSactSrv; integer, 






286* 



0010 




287* OSictSrT 


0010 

2278 

0180 


288* 

Bcve.i pSysCoa.w.al 

,Cet pointer to SysCoa 

0014 

2269 

003C 


289* 

novel SCslttbUal) ,al 

;Get pointer to slot table 

OOU 

3F69 

0006 

0004 

290* 

aove.w STacsrv(al),4(sp) 

;Cet active server froa slot table 

OOIE 

4E75 



291* 

rts 

.Return 





192* 







293* 







194* 

GSALTSLT > Get alternate slot function 





295* 







296* 

FUNCTION OSaltSU. integer; 






197* 



0020 




298* OSUtSIt 


0020 

2278 

0180 


299* 

Bove.i pSysCoa.w,al 

.Get pointer to SysCoa 

0024 

2269 

003C 


300* 

aove.l SCslttbl(al),al 

.Get pointer to slot table 

0028 

3F69 

0008 

0004 

301* 

aove.w STalsltial ) ,4(sp) 

.Get alternate slot ftoa slot table 

QC2E 

4E75 



302* 

rts 

;Retarn 





303* 







304* 







305* 

OSALTSRV - Get alternate server 

function 





306* 







307* 

FUNCTION OSaltSrv. integer, 






308* 



0030 




309* OSiltSrv 


0030 

2278 

0180 


310* 

aove.l pSysCoa.w,al 

.Get pointer to SysCoa 

0034 

2269 

003C 


311* 

aove.i SCslttbl(al) ,al 

.Get pointer to slot table 

0038 

3F69 

OOOA 

0004 

312* 

aove.w STalsrv(al),4<sp) 

.Get alternate server froa slot tab 

003E 

4E75 



313* 

rts 

.Return 





314* 







315* 







316* 

OSVRTCHT - Get CRT orientation 

function 





317* 







318* 

FUNCTION OSvrtCrt ; boolean; (TRUE it vertical, FALSE if horirontail 





319* 



0040 




320* 05»itCr_t 


0040 

422F 

0004 


321* 

clr.b 4(sp) 

.Set functron return to FALSE 

0044 

207C 

0003 

or 61 

322* 

aovea.l t$30F61,a0 

.Get pointer to orientation switch 

004A 

0810 

0003 


323* 

btst I3,(a01 

.Vertical orientation’ 
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329* 

, 







330* 

, OSSLTTYFE - 

Cet device type tor slot 

function 





331* 

, 







332* 

i FUNCTIOM OSsltType (slot; integer). 

slot type. 





333* 

, 



OOSA 




334* 

OSsl tType 



OOSA 

205F 



335* 

aove. 1 

(sp)+,aO 

Save return address 

005C 

301F 



336* 

Bove w 

isp)t,dO 

,Get slot nuBbet 

005E 

5340 



337* 

subq .w 

11, dO 

.Compute offset into slot table 

OOAO 

6D1C 



338* 

bit . s 

sIttypB 

, Error return if slot not valid 

0062 

0C40 

0005 


339* 

cap i . w 

tS.dO 

1 

006i 

6Ci6 



340* 

bge.s 

slttypS 

, Eliot return if slot not valid 

0068 

core 

0004 


341* 

Bulu 

fSTinfoL.dO 

,» 

006C 

0640 

OOOC 


342* 

addi .w 

ISTinfo.dO 

,* 

0070 

2278 

0160 


343* 

Bove . 1 

pSysCoB.w, al 

,Get pointer to SysCoB 

0074 

2269 

003C 


344* 

Bove . 1 

SCslttbUal) ,al 

,Get pointer to slot table 

0078 

lEBl 

0001 


345* 

Bove . b 

STlypelal ,d0 ,w) , (sp) 

,Get slot type tor slot 

007C 

6002 



346* 

bra 5 

slUyp9 

.Return 





347* 




007E 

4217 



348* 

slttypS cir .b 

(sp) 

,Set slot type to no device 





349* 




0080 

4ED0 



350* 

sltlyp9 ]Bp 

(aO) 

.Return 





351* 








352* 

, 







353* 

, CSDEVTYFE - 

Get device type tor device function 





354* 

, 







355* 

, FUNCTION OSdevrType \devno. integer). 

slottype. 





356* 

, 



0082 




357* 

OSdevType 



0082 

205F 



358* 

Bcve 1 

(sp)4^,a0 

.Save return address 

0064 

301F 



359* 

Bove 

(sp)^,dQ 

.Get device nuBfaer 

G086 

CGFC 

0020 


360* 

BUiu 

*UTlen,dO 

,CoBpote indet into BevTab 

00 8A 

2278 

0180 


361* 

BO « e . 1 

pSysCoB.w,ai 

,Get pointer to SysCoB 

fl08E 

2269 

0014 


362* 

B07e . 1 

5Cdevtab(<il),al 

,Get pointer to device table 

0092 

D3FC 

0000 

0002 

363* 

adda. 1 

12, at 

•Get pointer to device table entry 

0098 

D3C0 



364* 

adda . i 

dO , al 

, » 

Q09A 

4241 



365* 

c L r w 

dl 

.Get slot nuBber tor device 

009C 

1229 

0014 


366* 

move . b 

UTsIt(al),dl 

,» 

00 AO 

3F01 



367* 

Boie w 

dl ,-tsp) 

.Push slot nuBoet 

OOA2 

4650 



368* 

pea 

(aC) 

.Push return address 

00A4 

60B4 



369* 

bca . s 

OasI tType 

.Get slot type tor slot (device) 





370* 








371* 

, 







372* 

; 05SYSSI2E - 

Cet systeB sue function 






373* 

, 







374* 

. FUNCTION OSsysSixe; integer, 






375* 

i 



OOA6 




376* 

OSsysSise 



OOA6 

3F7C 

0100 

0004 

377* 

BOve .w 

1256, 4(sp) 

.Set result to Z56k 

OOAC 

2278 

0180 


378* 

Boee . 1 

pSysCoB.w,al 

.Get pointer to SysCoB 

OOBO 

2269 

0032 


379* 

BOve . I 

SCaeBBap(al),al 

.Get pointer to BeBory Bap 

00B4 

0CA9 

OOOC 

0000 

380* 

CBpi . 1 

t$C0000,KMhicod(al) 

; Is this a 512k systea) 

OOBA 

QOOC 







ODBC 

6006 



381* 

bit.s 

ssl 

.No. return 
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OCBE 

3F7C 

32 0 0 

0004 

382* 

lofe .w 

tS12,4(sp) 

,Set lesait to S12k 

OOC4 

4E75 



383* 

ssl rts 


(Return 





384* 








385* 

, 







366* 

, GSCURSP - Get 

cQtrenl SP for systes fanction 





387* 

, 







388* 

, rUNCTIOK OBcuiSP; iongint, 






389* 

, 



OOCi 

2 278 

3180 


390* 

GScarSF Bove.] 

pSysCoB w,al 

,Get pointer to SysCoa 

OSCA 

2 2 6 ? 

G032 


391* 

love . 1 

SCueBAdplali ,al 

,Gei pointer to aeBoty aap 

COCE 

2F8? 

0004 

0004 

392* 

Bove . 1 

KMhtdta(al;,4(sp) 

,Get current SP 

0CD4 

4E75 



393* 

rts 


.Return 





394* 








355* 

, 







396* 

, OSEXTCRT - Check lot eiternal CRT 

function 





397* 








398* 

, FUNCTION OSeitCRT: boolean, 






399* 

, 



OODe 




400* 

GSeitCRT 



DOC6 

205F 



401* 

BOTe . i 

<sp)t,aO 

iSave return address 

{1038 

548F 



402* 

addq.I 

82, sp 

.ReBore function result troB stack 

CODA 

227 8 

0180 


403* 

Bore.i 

pSfsCoB.w.al 

,Get pointei to SysCoB 

OOOE 

224? 

0014 


404* 

BO f e 1 

SCdevtab(al ) ,al 

,Get pointet to derice table 

OGEE 

301? 



405* 

Bore w 

(ai 1 f , do 

,Get nuBoec of derices 

00E1 

244? 



40 6* 

Bore . i 

al,a2 

, Compote last oerice pointet 

OOEe 

COFC 

00 2 0 


407* 

BUlU 

#UTien,dO 

,* 

OCEA 

DO CO 



408* 

adda 1 

d0,a2 

,* 

OOEC 

2269 

0002 


409* 

Bore . I 

UTiodrrlal ) ,al 

,Get drirec pointers 

30FG 

246A 

0002 


410* 

Bore . I 

UTiodnr(aZ),a2 

,* 

OOF4 

7001 



411* 

Boreq 

11, dC 

;Assub6 TRUE 

OOFi 

B5C9 



412* 

CBpa . 1 

al,a2 

.Driver iOl = driret tMAXOEVl’ 

S0F8 

6 700 

0004 


413* 

beq 

eicrtx 

,Yes, return 

OOFC 

7 0 00 



414* 

Boreq 

t0,d0 

,Set FALSE 

OOFE 

IFOO 



415* 

eiccti Bore. fa 

d0,-(sp) 

,Set function result 

0100 

4ED0 



416* 

J»P 

(aO) 

.Return 





417* 
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419* 







420* 

, CSstrsOv - Get SYSTERM derice nuftbec 

ionction 





421* 







422* 

, FUNCTIOK QSsttBOv. integer, 






423* 



QlOl 




424* 

OSsitAOr 


0102 

3F7C 

0002 

0004 

425* 

■ore.w I2,4($p) 

,Set innetion result 

3103 

4E75 



426* 

rts 

iRetnrn 





427* 







421* 







429* 

, OSprttDf - Gel FRIHTER device ncabei 

Inaction 





430* 







431* 

, FUMCTIOK OSpetrOv. integer, 






432* 



OlOA 




433* 

OSpitiDr 


OlOA 

3F7C 

0006 

0004 

434* 

acre w I6,4(sp) 

,Set innetion result 

0110 

4E75 



435* 

rts 

,Retnrn 





436* 







437* 







438* 

, GSaaiOev - Get aaiiaoi device nuaber 

innetion 





439* 







440* 

, FUNCTION OSaaiDev. integer, 






441* 



0112 




442* 

OSaaxDev 


0112 

227E 

0180 


443* 

aove.l pSTsCoa.w.al 

,Get pointer to SysCoa 

01 U 

2209 

0014 


444* 

aovc.I SCdevtab(al) ,al 

,Get pointer to device table 

01 lA 

3F51 

0004 


445* 

aove.w (al).4(sp) 

,Get nuaber ci devices 

OllE 

4E75 



446* 

Its 

.Return 





447* 







448* 







449* 

, OSdispDv - Get DISPLAY 4rivet device 

noabei innetion 





450* 







451* 

, FUNCTION OSdispDv. integer, 






452* 



OiZO 




453* 

OSdispDv 


0120 

4267 



454* 

clr.w -(sp) 

,Get nuaber of devices 

0122 

OlEE 



455* 

bst.s OSaaiDev 


0124 

3Q1F 



456* 

aove.w (sp)t.dC 

,* 

OlZi 

3F4C 

0004 


457* 

aove.w d0,41sp) 

iSet innetion result 

012A 

4E75 



458* 

Its 

iRetnrn 





459* 







460* 

, 






461* 

, OSkfOdDv - Get KYBD driver device nnaber inaction 





462* 

, 






463* 

, FUNCTION OSkybdOv: integer, 






464* 



one 




465* 

OSkybdOv 


one 

4267 



466* 

clr.w -(sp) 

.Get nuaber oi devices 

one 

61E2 



467* 

bst.s OSaaiDev 

.» 

0130 

301F 



468* 

aove.w (sp)i,d0 

i* 

0132 

3340 



469* 

sobg 11, dO 

iCet device nuaber 

0134 

3F40 

0004 


470* 

aove.w d0,4(sp) 

.Set function result 

0131 

4E75 



471* 

rts 

.Return 
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473* 








474» 

OStiiDf - Get 

TIMER driver device naaber function 




475» 








47A» 

FUNCTION OS tiaOv: integer, 






477* 





013A 



478* 

}St inOv 




013A 

42A7 


479* 

clr.w 

-(sp) 


,Get nuaber of devices 

013C 

A1D4 


480« 

bsr s 

QSaaiDew 


; * 

013E 

301F 


481* 

Bove.w 

(sp)i,dO 


i* 

0140 

SS40 


482* 

sobq 

*2,d0 


iGet device nuaber 

0142 

3F40 

0004 

483* 

lOfe.w 

d0,4(sp) 


;Set function result 

OHA 

4E75 


484* 

Its 



^Return 




485* 








48A* 








487* 

OSoaniDv - Ge 

OKNINET driver 

device 

naaber fanction 




488* 








489* 

FUNCTION GSonniDv. integer, 






490* 





0140 



491* 

}SoaniDf 




0140 

42A7 


492* 

cit .w 

-(sp) 


;Get nuaber or devices 

014A 

AICA 


493* 

bsr . s 

OSaeiOev 


j * 

OHC 

301F 


494* 

nove.w 

(sp)i-,dO 


,* 

014E 

S740 


495* 

sobq 

43, dO 


,Get device nuaber 

OISO 

3F40 

0004 

49A* 

•ore.w 

d0,4(sp) 


,5et function result 

01S4 

4E7S 


497* 

rts 



, Return 




498* 








499* 








500* 

OSdeaZOr - Get DTACOH2 driver 

device 

nuaber fanction 




50-1* 








502* 

FUNCTION OSdcaZDv: integer, 






503* 





OISA 



504* ( 

3&dca2Df 




QISO 

42A7 


505* 

clr.w 

-(sp) 


,Get nuaber of devices 

OISO 

AIBB 


50A* 

bsr .5 

OSaeiOev 


,* 

OISA 

301F 


507* 

tove.w 

(sp)^,dO 


; » 

OlSC 

S940 


508* 

sobq 

44, dO 


,Get device nuaber 

OISE 

3F40 

0004 

509* 

acre .w 

d0,4(sp) 


,Set fanction result 

0U2 

4E7S 


510* 

rts 



, Re turn 




511* 








512* 








513* 

GSdcalOv - Get OTACONt driver 

device 

naaber function 




514* 








515* 

FUNCTION QSdcalOv. integer. 






51A* ; 





0U4 



517* ( 

ISdcalDv 




0U4 

42A7 


518* 

clr.w 

-(sp) 


,Cet nuaber of devices 

OUA 

AlAA 


519* 

bsr .s 

OSaerDev 


;» 

out 

301F 


520* 

aove.w 

(sp)f,dO 


,* 

OlAA 

SB40 


521* 

sobq 

45, dO 


,Cet device nuaber 

OlAC 

3F40 

0004 

522* 

aove w 

d0,4(sp) 


,Set fanction result 

0170 

4E7S 


523* 

rts 



, Return 




524* 








525* 








526* 

OSsltDv • Get 

SIOTIO driver device naaber fonction 



File: 

CCLIB.OSI.TEXT 


ecu BASH 


Fige 15 



527* 






328* 

, FUNCTION OSsitOv: integei, 




529* 




0171 


S30* 

OSsltDi 



0172 

4247 

531* 

clr.w 

-isp) 

,Get nuibec ot devices 

0174 

419C 

532* 

bsr .s 

OSaiiDev 

,» 

0174 

301F 

533* 

Boie.w 

(spit, do 

,* 

0170 

5D40 

534* 

subq 

t6,d0 

,Cet device nuabet 

017A 

3F40 0004 

535* 

Bore.w 

dO ,4(sp) 

,Set iunctian result 

017E 

4E75 

534* 

Its 


.Return 



537* 
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53?* , 

540* , pOSuserlD - Get Constellation user ID pointer 
541* . 

542* , FUNCTION pQSusetIO: pointer; 

543* ; 

0180 544* pOSoserlD 

0180 2F78 0180 0004 545* moee.l p5fsCo«..w,4(sp) ,Get pointer to SfsCoa 

niAA QAAP onnn gner 544 * $5C*!ser!D.4(£») ;C-et ■'ointer to ooer ID 

018C 0004 

018E 4E75 547* rts .Return 

548* 

549* i 

550* i pOScurltbd - Get current kefboartf record pointer 
551* , 

552* ; FUNCTION pOScurKbd: pointer; 

553* , 


0 i ?8 




554* 

pOScurAbd 



0190 

2078 

0180 


555* 

sore. 

I pSysCoB.w.aO 

,Cet pointer to SysCoB 

0i?4 

2F43 

0048 

0004 

556* 

io?e . 

1 3CcurrkvaO).4(sp) 

.Get current keyboard pointer 

019A 

4E75 



55 7* 

rts 


.Return 





558* 








559* 

, 







560* 

, pOScurVnd - 

- Get current window record 

pointer 





561* 

, 







562* 

, FUNCTION pOScurVnd. pointer, 






563* 




019C 




564* 

pOScurVnd 



019C 

2078 

0180 


565* 

nove . 

1 pSysCoB.w.aO 

.Get pointer to SysCoB 

QUO 

2F68 

0044 

0004 

566* 

■ove . 

1 SCcot rw(aO) ,4(sp) 

.Get current window pointer 

01 A4 

4E75 



567* 

rts 


;Return 





568* 








569* 

. 







570* 

; pOSsysVnd - 

■ Get systeB window record 

pointer 





571* 








572* 

, FUNCTION pOSsfsVnd (wndnbr. integer): 

pointer i 





573* 

, 



01A8 




574* 

pOSsf sVnd 



01A8 

205F 



575* 

love . 

1 <sp)*,a 0 

.Save return address 

OlAA 

301F 



576* 

note . 

w (sp)+,dO 

.Get systeB window nuBber 

OiAC 

2FD8 



577* 

nove . 

I aQ,-(sp) 

.Restore return address 

OlAE 

ES48 



578* 

lsi.« 

1 12 , do 

iGet indei to window pointer 

OIBO 

2078 

0180 


579* 

move . 

1 pSysCoB.w.aC 

.Get pointer to SysCoB 

01B4 

2068 

0056 


580* 

tore . 

I SCwndtbl(a0),a0 

;Get pointer to window table 

01 B 8 

2F70 

0000 

0004 

581* 

BO ft . 

1 0(a0,d0),4(sp) 

.Get window pointer 

OIBE 

4E75 



582* 

rts 


.Return 





583* 








584* 

; 







585* 

; pOSdeTNat - 

■ Get device naBe pointer 






586* 

, 







587* 

, FUNCTION pOSdevNaB (ontnbr: integer). 

pointer. 





588* 

; 



OICO 




589* 

pOSdevNat 



OICO 

205F 



590* 

Bove. 

1 (sp)f,aO 

.Save return address 

01C2 

301F 



591* 

Bove . 

w (sp)^,d 0 

;Get unit nuBber 



FlU CCLIB 051 TEIT 
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01C< 

COFC 

0020 


592* 

■uU 

•UTlen,d0 

,Coipute entry indei 

S1C8 

2F8B 



593* 

love. 

a0,-\sp) 

.Restore return address 

OtCA 

2378 

0180 


594* 

love . 

pSysCoi w,a0 

,Cet pointer to SysCoi 

OICE 

2048 

6014 


595* 

love . 

SCdevtab(aO) ,a0 

,Get pointer to device table 

DID! 

DIFC 

0000 

0002 

594* 

addi. 

12, aO 

,Get pointer to device ID 

OICB 

DICO 



597* 

adda . 

d0,a0 

.* 

OIDA 

DIFC 

8000 

0008 

598* 

adda . 

tUTdid.aO 

,» 

DIED 

2F48 

6004 


599* 

love . 

a0,4(sp) 

,Set function result 

01E4 

4E75 



600* 

tts 


.Return 





401* 








402* 

, 







o03* 

, pOSdate - Get systei date pc inter 






604* 








605* 

, FUKCTIOK pOSdate. pointer, 






604* 




OiEi 




407* 

pOSdate 



0!E» 

2F78 

0180 

0604 

408* 

love . 

pSysCoi.w,4(sp) 

,Get pointer to SysCoi 

OlEC 

06AF 

0030 

0020 

409* 

addi . 

tSCtoday , 4i sp ) 

,Get pointer lo systei date 

01 f: 

C004 







01F4 

4E75 



6ifl* 

tts 


.Return 





611* 








612* 








613* 

, pOSsysVol - 

Get systei voluie name 

pointer 





614* 

, 







615* 

, fUHCTIOK pGSsysVol pointer, 






616* 




81F» 




6l7* 

pOSsysVol 



01F4 

2078 

6180 


618* 

love 

pSysCoi.w,a6 

,Get pointer to SysCoi 

31FA 

2F4B 

002E 

0004 

619* 

love . 

SCbootna(aO) ,4(sp) 

.Get systei voluie naie pointer 

0200 

4C75 



620* 

tts 


jReturn 





621* 








622* 








62 3* 

, pOScurVol - 

Get current voluie naie pointer 





624* 








o25* 

, FUNCTION pOScutVol pointer. 






624* 




0202 




427* 

pOScuiVol 



0202 

2078 

0180 


428* 

love . 

pSysCoi w,a0 

.Get pointer to SysCoi 

0204 

2F48 

3018 

0004 

629* 

love . 

SCdirnaiiau) ,4isp) 

.Get ouitent voluie naie pointer 

02QC 

4E75 



630* 

rts 


.Return 





631* 








632* 








633* 

, pOSsysVts - 

Get GS version nuiber 

string pointer 





634* 

, 







435* 

i FUNCTION pOSsysVrs; pointer; 






634* 

, 



020E 




437* 

pOSsysVts 



020E 

2078 

0180 


438* 

love . 

pSysCoi.w,a0 

jCet pointer to SysCoi 

0212 

2F48 

00 4E 

0004 

439* 

love 

SCvrsnbr(aO) ,4(sp) 

.Get OS version nuiber pointer 

0218 

4E75 



440* 

rts 


jReturn 





441* 








442* 








643* 

, pOSsysDat - 

Get OS version date string pointer 





644* 

, 
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B4S* , FUNCTION p05s;sDat; pointei, 

i 


021A 

021A 

2078 

0180 

847* 

648* 

pOSsir^Dat 

aove . I 

pSjrsCoB.w.aO 

,Gec pointer to SfsCoB 

Q21E 

2F68 

00S2 0004 

649* 

to?e . 1 

SCrrsdat(aO) ,4( sp) 

,C<it OS version date ppuitet 

0224 

4E7S 


6S0* 

651* 

Its 


.Return 
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453* 






454* 

, JSVECT - JuBp to routine in sfsten rector 




655* 






456* 

, Pariieters. DO.W - cftset in 

systea rector 




457* 



02Zi 

2078 

0180 

458* 

JSVECT MCVE.L pSysCoi.W.AO 

; (AO) : syscoa 

022A 

2068 

0008 

454* 

HOVEL SC)t«bie(A0),A0 

, (AO) = sysvect 

022E 

2070 

0000 

440* 

HOVE L 0(AO,DO.V),AO 

, (AO) = desired routine 

0232 

4ED0 


441* 

JKP (AO) 

, Co to ill 




442* 






463* 

i 





444* 

, JUVECT - Jomp to routine in user rector 




445* 






446* 

1 Faraaeters. uO.V - offset in 

user rector 




447* 



0234 

2078 

0180 

448* 

JUVECT KOVE.L pSysCoa.V.AO 

, (A6) s syscoa 

0231 

2048 

OOiC 

449* 

HOVEL SCutable(A0),A0 

, (AO) : userrect 

023C 

2070 

0000 

470* 

nOVE.L 0(A0,Q0.V),A0 

, (AO) = desired routine 

0240 

4ED0 


471* 

JHP (AO) 

, Go to it ! 




472* 






473* 

, 





474* 

i XCETDIR - Read a diteciotf 





475* 

, 





474* 

; procedure igetdir (fvtd: rid, 

rar fdir. directory; rar DerBIocied Boolean 




477* 

, rar fderno 

: integei, var DerValid. Boolean/, eiteinai, 




478* 

, 


0242 

7048 


479* 

XCETDIR HOVEQ ISVgetdir.DO 


0244 

40EQ 


480* 

ERAS JSVECT 





481* 






482* 

; 





483* 

, XPUTDIR • Write a director! 





484* 

, 





485* 

, ptocedote iputdir (ear fdir: 

directory, fdevno. integer), 




486* 

, 


0244 

303C 

OQM 

487* 

XPUTDIR KGVE.V ISVputdir.DO 


024A 

40DA 


488* 

BRA. 3 JSVECT 





489* 






490* 

; 





491* 

, KefPress - Test for any key 





492* 

, 





493* 

, function Keypress, boolean, 





494* 

, 


024C 



495* 

KeyPtess 


0Z4C 

205f 


494* 

■ore.l (sp)i,a0 

;pop caller return address 

024E 

3F3C 

0001 

497* 

lore.w #l,-(sp> 

;push function code 

0252 

4850 


498* 

pea UO) 

,push caller return address 

0254 

303C 

OOOC 

699* 

aore.w lEVobusyidO 

;set CCOS function offset 

0251 

40CC 


700* 

bra 5 JSVECT 

;do unit status 




701* 






702* 






703* 

, BrkPress - Test (or break key 





704* 






705* 

, function BrkPress: boolean; 





706* 





f:Ii 

CCLiB 

052 .TE27 


CCLIBASn 
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325A 



707* BrkPress 


42SA 

426? 


708* 

cir.w -(spl 

.get keyboard driver unit noBber 

02 5C 

6100 

FEC£ 

709* 

bst OSkybdOf 

,* 

G260 

3C1F 


710* 

ftofe w (sp)i,dO 

,pop keyboard driver unit nuBber 

02 62 

2 05f 


711* 

lofe.i (splt.iO 

.pop ceiier return address 

0264 

2 2CF 


712* 

love.l sp,dr 

.get pointer to result 

0266 

4850 


713* 

pei (aO) 

.posh caller return address 

02 60 

3FOO 


714* 

Bove.w dO,-(sp) 

.push unit nuBber 

026A 

2FC1 


715* 

■ove.I dl,-<sp) 

.push butter address 

02 6C 

2F3C 

0030 OGGI 

716* 

Bove.I 11. -(sp) 

.push tunccion code 

0272 

48 7A 

OOOdt 

717* 

pea bpl 

.posh our return address 

0276 

303C 

0064 

718* 

Bove w iSVustat.dO 

.set CCOS tunction ottset 

02 7A 

60AA 


719* 

bras JSVECT 

.do unit status 

027C 

205F 


720* bpi 

Bove.i (sp)4.,a0 

,pop caller return address 

027 E 

3017 


721* 

Bove w (sp),d0 

.convert unit status to boolean 

0200 

E146 


722* 

Isl.w »8,d0 


02 82 

3E8Q 


72 3* 

Bove.w dO,(sp) 

, * 

02 34 

4ED0 


724* 

}Bp (aO) 

.return to cailer 


725 * 



rile; CCLIB.OSI.TEIT 
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72 7 » END 


ACTIVE 

0000800A 

lOEUIOPH 00000036 

•OSVHTCRT 

0000404 

STALSRV 

OOOOOOOA 

UTBLX 

OOOOOOIC 

BPl 

00027Ci 

lOEVKDBE 

00000021 

•FOSCURXB 

0001904 

STBTSLT 

00000000 

UTOID 

00000008 

*BRRFRESS 

0002SAf 

lOEVNDCS 00000022 

•POSCURVO 

0002024 

STBTSRV 

00000002 

UTDRV 

00000016 

CLRSC 

0OSIISD06 

lOEVNDDC 

00000023 

•POSCURVN 

00019C4 

STINFO 

OOOOOOOC 

UTFLP 

OOOOOOIB 

CSAHRl 

00000010 

lOEVNODS 00000024 

•FOSDATE 

0001E64 

STINFOL 

00000004 

UTIODRV 

00000002 

CSAnR2 

00000011 

lOEVNDFN 00000020 

•POSDEVNA 

0001C04 

STNDRV 

80000002 

UTLEN 

00000028 

CSBFCH 

00000006 

lOEVNOIV 0000002S 

•POSSYSOA 

00021A4 

STNHBR 

00000000 

UTHTD 

00000007 

CSFRSTCH 

ooooooos 

lOEVMDVN 

00000027 

•POSSYSVO 

0001F64 

5TTYPE 

00000001 

UTRO 

OOOOOOIA 

CSIASTCH 

OOOOOOOA 

lOEVmDVR 

00000026 

•POSSYSVR 

00020E4 

SUSPEND 

00000007 

UTSIZ 

00000010 

CSLFCH 

00000004 

lOEVSZER 

00000041 

•POSSYSVN 

0001A84 

SVBLKIO 

0000002C 

UTSLT 

00000014 

CSHASX 

OQOOOOOC 

lOOX 

00000000 

•POSUSERI 

0001804 

SVCLl 

0000007C 

OTSPT 

00000018 

CSTBllOC 

00000000 

JSVECT 

0002264 

PSYSCOH 

00000180 

SVCLOSE 

00000020 

UTSRV 

0000091$ 

CURSON 

00000002 

JUVECT 

0002344 

SCBOOTDV 

00000036 

SVCRKPTH 

00000860 

UTTPS 

00000019 

EXCRTX 

flflOOFE^ 

•KEYPRESS 

00024C4 

SCBOOTNM 

0000002E 

SVOELENT 

00000090 

UTTYP 

00000017 

GRAPHIC 

00000001 

HHBTBLK 

OOOOOOIA 

SCCOOEJT 

00000022 

SVDSP 

00000038 

VERT 

oooooooo 

INSHOD 

00000002 

9IMBTOEV 

00000012 

SCCURRX 

00000048 

SVDSP4 

0OOD0O6C 

VIDDEFLT 

00000003 

INVCURS 

00000003 

RMETDRV 

00000018 

SCCURRV 

00000044 

SVFLPDIR 

00080088 

VIDSET 

00000007 

INVRSE 

00000000 

MMBTSIT 

00000014 

SCDEVTAB 

00000014 

SVGET 

00000014 

VRTCRTI 

OOOOS84 

lOEBSZER 

00000040 

HHBTSRV 

00000016 

SCDIRNAK 

00000018 

SVGETDIR 

00000048 

VRAPON 

00000004 

lOECLKHF 

00000039 

MHBTSV 

00000010 

SCFREEHP 

00000004 

SVGETVNK 

00000080 

WRATTRl 

80000020 

lOEFKCCO 

00000038 

mKICOD 

oooooooc 

SCIORSLT 

00000000 

SVINIT 

00000018 

WRATTR2 

00000021 

lOEINVOE 

00000002 

HHHIOTA 

00000004 

SCJTABLE 

00000008 

SVMARK 

OOOOOOSC 

WRATTRS 

00000024 

lOEIOREQ 

00000003 

KHLOCOO 

00000008 

SCHEKHAP 

00000032 

SVHAVAIL 

00000044 

VRBASEX 

OOOOOOOC 

lOEIRDSB 

0000003C 

HHLODTA 

00000000 

SCNUKFRO 

00000028 

SVNEV 

00000034 

VRBASEY 

00000010 

lOEIVDSB 

0000003E 

MOAUTQLF 

00080004 

SCNXTPRO 

00000026 

SVNEV4 

00000068 

VRBITOFS 

OOOOOOIA 

lOEKYBTE 

0000003S 

NOSCROLL 

OOOOOOOS 

SCFROCNO 

00000002 

SVOPEH 

OOOOOOIC 

WRCHARPT 

OOOOOOOO 

lOEHFDRV 

00000020 

•OSACTSLT 

0000004 

SCPRQTBL 

0000002A 

SVPUT 

80000010 

VRCURAOR 

00000008 

lOENOBUF 

00000017 

•OSACTSRV 

0000104 

SCRQOTV 

00000040 

5VFUTDIR 

00000094 

VRCURSX 

00000016 

lOENOOSF 

00000028 

•OSALTSLT 

0000204 

SCSLTTBL 

0000003C 

SVRDCKAR 

00000028 

VRCURSY 

00000018 

lOENODTC 

0000002E 

•OSALTSRV 

0000304 

SCSUSINH 

OOOOOOSA 

SVRLEASE 

00000040 

VRFILLl 

0000002$ 

lOENOKTB 

00000029 

•OSCURSP 

OOOOC64 

SCSUSREQ 

oooooosc 

SVSCHDIR 

OOOOOOOC 

VRFILL2 

00000026 

lOENOONN 

0000002B 

•OSDCMIDV 

0001644 

SCSYSIN 

00080010 

SVSEEX 

00000030 

VRFILL3 

00000027 

lOENOFRT 

0000002C 

•OSDCM2DV 

0001S64 

SCSYSOUT 

oooooooc 

SVUBUSY 

OOOOOOOC 

VRFILL4 

00000028 

lOENOTIM 

0000002A 

•OSDEVTYP 

0000824 

SCTODAY 

00000020 

SVUCLEAR 

00000008 

VRGRORGX 

OOOOOOIC 

lOENOTRN 

OOOOOOIS 

•OSDISPDV 

0001204 

SCUSERID 

0000004C 

SVUINSTL 

00000098 

VRGRORGY 

OCOOOOIE 

lOEORDSB 

0000003D 

•OSEXTCRT 

00 00064 

SCUTABLE 

OOOOOOIC 

SVUREAD 

00000004 

VRHOHEOF 

OOOOOOOC 

lOEOVDSB 

0000003F 

•OSKYBDOV 

00012C4 

SCVRSDAT 

ooocoosz 

SVUSTAT 

90000064 

VRHOMEPT 

00000004 

lOEFADER 

00000044 

•OSHAXDEV 

0001124 

SCVRSNBR 

0000004E 

SVUVRITE 

00000009 

VRLENGTH 

00000030 

lOEFRHLN 

00000037 

•OSOKNIDV 

0001484 

SCVNDTBL 

OOOOOOS6 

SVVALOIR 

00000084 

URLNGTHX 

00000012 

lOERSZER 

00000042 

•OSPRTRDV 

00010A4 

SLTTYP8 

00007E4 

SWRCHAR 

00000024 

VRLNGTHY 

00000014 

lOETBLFL 

00000033 

•OSSLTOV 

0001724 

SLTTYP9 

0000804 

SYSBYTES 

00000186 

vniRCDLEN 

00009023 

lOETBLID 

00000032 

•OSSLTTYP 

OOOOSA4 

SSi 

0O00C44 

SYSXYBDF 

00000184 

VRSTATE 

00000022 

ICETELIU 

00000034 

•OSSTRMDV 

0001024 

STACSLT 

00000004 

SYSVIN 

OOOOOOOS 

VRWSPTR 

0000002C 

lOETIMOT 

00000016 

•OSSYSSIZ 

000OA64 

STAC5RV 

00000006 

UNDSCR 

00000001 

•XGETDIR 

0002424 

IGEUARTE 

00000043 

•OSTINDV 

00013A4 

STALSLT 

00000008 

UTBLf 

00000006 

•XPUTDIH 

0002464 


0 errors. 
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